How do I get historical foreign exchange data on an hourly basis?

My code works. However, I'm receiving the output for each day. I wanted it to give me data for all business hours

library(priceR)

cur <- historical_exchange_rates("CAD", to = "USD",
                                 start_date = "2010-01-01", end_date = "2021-08-29")

print (cur)

 date one_CAD_equivalent_to_x_USD
1   2010-01-01                    0.956718
2   2010-01-02                    0.956718
3   2010-01-03                    0.956718
4   2010-01-04                    0.960639
5   2010-01-05                    0.962288

I want the output to show date, time and the rate

date        BH       conversion(CAD to USD)
2010-01-01  9:00:00   0.956718

from Recent Questions - Stack Overflow https://ift.tt/3DutpKE
https://ift.tt/eA8V8J