Rollback NA change - broke working code while only allowing some edge…

…cases of malformed aux data
peekbank · Aug 23, 2024 · d52255a · d52255a
1 parent 9d75286
commit d52255a
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: peekbankr
 Type: Package
 Title: Accessing the Peekbank Database
-Version: 0.1.1.9006
+Version: 0.1.1.9007
 Authors@R: c(
     person("Mika", "Braginsky", email = "[email protected]", role = c("aut", "cre")),
     person("Kyle", "MacDonald", email = "[email protected]", role = "aut"),

diff --git a/R/peekbankr.R b/R/peekbankr.R
@@ -548,9 +548,6 @@ unpack_aux_data <- function(df) {
 
   aux_cols <- lapply(col_names, \(col_name) {
     sapply(aux_list, \(aux) {
-      if(!(col_name %in% colnames(aux))){
-        aux[[col_name]] <- NA
-      }
       aux[col_name]
       })
   }) |>