Fix for NULL strings introduced by jsonlite::fromJSON

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: peekbankr
 Type: Package
 Title: Accessing the Peekbank Database
-Version: 0.1.1.9009
+Version: 0.1.1.9010
 Authors@R: c(
     person("Mika", "Braginsky", email = "[email protected]", role = c("aut", "cre")),
     person("Kyle", "MacDonald", email = "[email protected]", role = "aut"),

R/peekbankr.R

@@ -552,6 +552,21 @@ unpack_aux_data <- function(df) {
 
   aux_cols <- lapply(col_names, \(col_name) {
     sapply(aux_list, \(aux) {
+      # cursed way to make sure that there are no "NULL" strings left over
+      # from weird jsonlite::fromJSON behavior,
+      # check https://github.com/jeroen/jsonlite/issues/70 to see if there has been a fix by now
+      if(length(aux) == 1 &&
+         (is.na(aux) ||
+          is.null(aux[col_name]) ||
+          aux[col_name] == "NULL"
+         ) || (
+         all(is.na(aux)) ||
+         all(is.null(aux[col_name]) ) ||
+         all(aux[col_name] == "NULL")
+         )
+      ){
+        return(NA)
+      }
       aux[col_name]
       })
   }) |>