diff --git a/R/public_api.R b/R/public_api.R index 2d37259..a209f30 100644 --- a/R/public_api.R +++ b/R/public_api.R @@ -265,8 +265,8 @@ get_price <- function(fsyms, query_url <- httr::modify_url(MIN_API_URL, path = "data/pricemulti", query = list( - fsyms = glue::collapse(fsyms, sep = ","), - tsyms = glue::collapse(tsyms, sep = ","), + fsyms = glue::glue_collapse(fsyms, sep = ","), + tsyms = glue::glue_collapse(tsyms, sep = ","), e = exchange, sign = tolower(sign), tryConversion = tolower(try_conversion), @@ -332,8 +332,8 @@ get_price_details <- function(fsyms, query_url <- httr::modify_url(MIN_API_URL, path = "data/pricemultifull", query = list( - fsyms = glue::collapse(fsyms, sep = ","), - tsyms = glue::collapse(tsyms, sep = ","), + fsyms = glue::glue_collapse(fsyms, sep = ","), + tsyms = glue::glue::glue_collapse(tsyms, sep = ","), e = exchange, sign = tolower(sign), tryConversion = tolower(try_conversion), @@ -930,7 +930,7 @@ get_price_avg <- function(fsym, query = list( fsym = fsym, tsym = tsym, - e = glue::collapse(exchanges, sep = ","), + e = glue::glue_collapse(exchanges, sep = ","), sign = tolower(sign), tryConversion = tolower(try_conversion), extraParams = app_name