From 496a9e59e5fabd81153905e10c4ba32c42cadb35 Mon Sep 17 00:00:00 2001 From: Jamie Whitehouse Date: Thu, 13 Mar 2025 14:33:32 +0100 Subject: [PATCH 1/2] add special handling for **empty** billing account addons as dataframe transform will fail otherwise... --- R/billingInfo.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/R/billingInfo.R b/R/billingInfo.R index ced813c..6431a41 100644 --- a/R/billingInfo.R +++ b/R/billingInfo.R @@ -13,6 +13,10 @@ getBillingAccount <- function(billingAccountId, asDataFrame = TRUE) { billingInfo <- getResource(paste0("/billingAccounts/", billingAccountId), task = "Getting billing account info") billingInfo$id <- as.character(billingInfo$id) + if (length(billingInfo$addons) == 0) { + billingInfo$addons <- c() + } + if (asDataFrame == TRUE) { billingInfo <- tibble::as_tibble(billingInfo) return(billingInfo) From f20d4d7ab18419de41920569ffb0b5e3f7ffba66 Mon Sep 17 00:00:00 2001 From: Jamie Whitehouse Date: Thu, 13 Mar 2025 17:17:31 +0100 Subject: [PATCH 2/2] wrap addons list in another list for robust transform to dataframe --- R/billingInfo.R | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/R/billingInfo.R b/R/billingInfo.R index 6431a41..8d9c860 100644 --- a/R/billingInfo.R +++ b/R/billingInfo.R @@ -13,9 +13,7 @@ getBillingAccount <- function(billingAccountId, asDataFrame = TRUE) { billingInfo <- getResource(paste0("/billingAccounts/", billingAccountId), task = "Getting billing account info") billingInfo$id <- as.character(billingInfo$id) - if (length(billingInfo$addons) == 0) { - billingInfo$addons <- c() - } + billingInfo$addons <- list(billingInfo$addons) if (asDataFrame == TRUE) { billingInfo <- tibble::as_tibble(billingInfo)