From 3331f57e761825948dbaf80b9ec13d4b04fdf147 Mon Sep 17 00:00:00 2001 From: "Thomas A. Pepperz" Date: Tue, 24 Sep 2019 14:55:48 -0500 Subject: [PATCH] Updates deprecated functions Updates deprecated functions: from glue::collapse to glue::glue_collapse --- R/public_api.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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