bug fix (#27)

NAMESPACE

@@ -14,6 +14,7 @@ export(clinicians)
 export(compare_conditions)
 export(compare_hcpcs)
 export(conditions)
+export(df2chr)
 export(display_long)
 export(duration_vec)
 export(gen_data)

R/conditions.R

@@ -199,7 +199,8 @@ conditions <- function(year,
  return(invisible(NULL))
  }
 
- results <- httr2::resp_body_json(response, simplifyVector = TRUE)
+ results <- httr2::resp_body_json(response, simplifyVector = TRUE) |>
+ df2chr()
 
  if (tidy) {
  results$year <- year

R/open_payments.R

@@ -200,7 +200,8 @@ open_payments <- function(year,
  httr2::req_error(body = open_payments_error) |>
  httr2::req_perform()
 
- results <- httr2::resp_body_json(response, simplifyVector = TRUE)
+ results <- httr2::resp_body_json(response, simplifyVector = TRUE) |>
+ df2chr()
 
  if (vctrs::vec_is_empty(results)) {
 

R/quality_payment.R

@@ -101,7 +101,8 @@ quality_payment <- function(year,
  return(invisible(NULL))
  }
 
- results <- httr2::resp_body_json(response, simplifyVector = TRUE)
+ results <- httr2::resp_body_json(response, simplifyVector = TRUE) |>
+ df2chr()
 
  if (tidy) {
  results$year <- year

R/utilization.R

@@ -230,7 +230,8 @@ utilization <- function(year,
  return(invisible(NULL))
  }
 
- results <- httr2::resp_body_json(response, simplifyVector = TRUE)
+ results <- httr2::resp_body_json(response, simplifyVector = TRUE) |>
+ df2chr()
 
  if (tidy) {
  results$year <- year

R/utils.R

@@ -138,6 +138,17 @@ display_long <- function(df, cols = dplyr::everything()) {
  tidyr::pivot_longer({{ cols }})
 }
 
+
+#' Convert data.frame cols to character
+#' @param df data frame
+#' @autoglobal
+#' @export
+#' @keywords internal
+df2chr <- function(df) {
+
+ df |> dplyr::mutate(dplyr::across(dplyr::everything(), as.character))
+}
+
 #' Tidy a Data Frame
 #' @param df data frame
 #' @param dt cols to convert to date with [anytime::anydate()]