Correct data_tidy_hladr_infant's pids

They were NA as `pid_sheet` was numeric when using the `pid_sheet` to `pid` converting vector.
SATVILab · Oct 18, 2021 · ff8d2fd · ff8d2fd
1 parent 38cd559
commit ff8d2fd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/data-raw/data_tidy_prep.Rmd b/data-raw/data_tidy_prep.Rmd
@@ -414,13 +414,14 @@ data_tidy_hladr_infant <- purrr::map_df(sheet_vec, function(sheet) {
         data_raw_infant_bcg_cd4_ifng
       )
   }
+
   data_out %>%
     dplyr::mutate(
       bcg = tolower(bcg)
     ) %>%
     dplyr::select(-age) %>%
     dplyr::mutate(
-      pid = sheet_to_r_pid_infant_ifng[pid_sheet]
+      pid = sheet_to_r_pid_infant_ifng[as.character(pid_sheet)]
     ) %>%
     dplyr::select(-pid_sheet)
 }) %>%
@@ -435,8 +436,10 @@ datautils::view_cols(
 ```
 
 ```{r , include = FALSE}
-usethis::use_data(data_tidy_hladr_infant, 
-                  overwrite = TRUE)
+usethis::use_data(
+  data_tidy_hladr_infant,
+  overwrite = TRUE
+  )
 ```
 
 ## HLADR MFI: Adults (Figure 4)

diff --git a/data/data_tidy_hladr_infant.rda b/data/data_tidy_hladr_infant.rda