Error in stack.default(.)

[cevaboyz]

Trying to run a simple query results in an error:

> exchange_rate_latest("USD") %>%  head(10)

Daily USD exchange rate as at end of day GMT 

Error in stack.default(.) : at least one vector element is required

[bjoroeKI]

I have the same problem recently. R version 4.3.1.

[filipwastberg]

Me too

[stevecondylios]

Thanks for letting me know.

The previously unrestricted API priceR uses to get currency data suddenly got sold and now requires a key to access it. Also, all the API endpoints got changed, so priceR has to be adapted to work with them. This all happened very suddenly so surprised a lot of users of the API.

I've gotten historical_exchange_rates() working in an experimental branch, and will hopefully have exchange_rate_latest() working with the new API soon.

[stevecondylios]

I pushed an experimental fix to master branch. Give it a try. Feedback big and small is welcome.

Install priceR from GitHub with

remotes::install_github("stevecondylios/priceR")

The only changes you should have to make to your code are

• Add 1 extra line to your R script to set a key (instructions here - let me know if you have any questions).
• Capitalisation in the second column name is altered slightly for consistency with the rest of priceR outputs. E.g. one_usd_is_equivalent_to is now one_USD_is_equivalent_to

Let me know if you have any questions.

If everything works as expected and without issue, after a few days, I'll submit the changes to CRAN.

[bjoroeKI]

Thanks. I used your fromJSON("http://api...") solution instead. This seems to work well for me. From: Steve Condylios ***@***.***> Sent: Tuesday, October 3, 2023 2:32 PM To: stevecondylios/priceR ***@***.***> Cc: Bjorn Roelstraete ***@***.***>; Comment ***@***.***> Subject: Re: [stevecondylios/priceR] Error in stack.default(.) (Issue #46) I pushed an experimental fix to master branch. Give it a try. Feedback big and small is welcome. Install priceR from GitHub with remotes::install_github("stevecondylios/priceR") The only changes you should have to make to your code are * Add 1 extra line to your R script to set a key (instructions here<https://github.com/stevecondylios/priceR#setup> - let me know if you have any questions). * Capitalisation in the second column name is altered slightly for consistency with the rest of priceR outputs. E.g. one_usd_is_equivalent_to is now one_USD_is_equivalent_to Let me know if you have any questions. If everything works as expected and without issue, after a few days, I'll submit the changes to CRAN. - Reply to this email directly, view it on GitHub<#46 (comment)>, or unsubscribe<https://github.com/notifications/unsubscribe-auth/AR2OJ4JEMMYACLBCMHXTLADX5QAVZAVCNFSM6AAAAAA5PAFIZ6VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMYTONBUHA3TENZZHE>. You are receiving this because you commented.Message ID: ***@***.******@***.***>> N?r du skickar e-post till Karolinska Institutet (KI) inneb?r detta att KI kommer att behandla dina personuppgifter. H?r finns information om hur KI behandlar personuppgifter<https://ki.se/medarbetare/integritetsskyddspolicy>. Sending email to Karolinska Institutet (KI) will result in KI processing your personal data. You can read more about KI's processing of personal data here<https://ki.se/en/staff/data-protection-policy>.

[stevecondylios]

This experimental functionality is now on CRAN, and everything should work as it did prior to changes, just requiring that a key be set in the R session first.

Install priceR from CRAN

install.packages("priceR")

library(tidyverse) 
library(priceR)

# use sessionInfo() to ensure version 1.0.0 installed, if not, try this instead
# devtools::install_version("priceR", version="1.0.0", repos="https://cloud.r-project.org/")

Set API key

Make an API key here: https://exchangerate.host/

Paste it into this code and run once to set it in your R session:

Sys.setenv("EXCHANGERATEHOST_ACCESS_KEY"="your_key_goes_here")

Everything should 'just work' ™️

Examples (same as before):

exchange_rate_latest("USD") %>% 
  head(10)
#    currency one_USD_is_equivalent_to
# 1       AED                  3.67299
# 2       AFN                 77.50220
# 3       ALL                101.25030
# 4       AMD                413.44991
# 5       ANG                  1.80265
# 6       AOA                829.00004
# 7       ARS                350.01992
# 8       AUD                  1.58582
# 9       AWG                  1.80000
# 10      AZN                  1.70231

historical_exchange_rates("AUD", to = "USD",
                          start_date = "2013-01-01", end_date = "2023-06-30") %>% head

#         date one_AUD_equivalent_to_x_USD
# 1 2013-01-01                    1.037464
# 2 2013-01-02                    1.049972
# 3 2013-01-03                    1.047220
# 4 2013-01-04                    1.048371
# 5 2013-01-05                    1.048371
# 6 2013-01-06                    1.049155