fixes #41

ABbiodiversity · Jan 4, 2024 · 57692ca · 57692ca
1 parent 056540e
commit 57692ca
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/convenience-functions.R b/R/convenience-functions.R
@@ -246,7 +246,8 @@ wt_make_wide <- function(data, sound="all"){
   #TO DO: COME BACK TO THE ERROR HANDLING
   #  options(warn=-1)
   wide <- summed %>%
-    mutate(individual_count = case_when(grepl('^C',individual_count) ~ NA_real_, TRUE ~ as.numeric(individual_count))) %>%
+    mutate(individual_count = case_when(grepl("^C",  individual_count) ~ NA_character_,
+                                        TRUE ~ individual_count) %>% as.numeric()) %>%
     filter(!is.na(individual_count)) %>% # Filter out things that aren't "TMTT" species. Fix for later.
     pivot_wider(id_cols = organization:task_method,
                 names_from = "species_code",