Merge pull request #1 from nationalparkservice/bugfix

Bug fix

Author: wright13

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: imdccal
 Type: Package
 Title: Wrangle CCAL Data Into Machine Readable Format
-Version: 0.1.0
+Version: 0.1.1
 Authors@R: 
     person("Sarah", "Wright", , "sarah_wright@nps.gov", role = c("aut", "cre"),
            comment = c(ORCID = "0009-0004-5060-2189"))

R/read_write.R

@@ -75,7 +75,7 @@ getCCALData <- function(files) {
       dplyr::select(sheet, address, row, col, is_blank, character) %>%
       dplyr::filter(row > quest_results_row, col == quest_results_col, character != "", !is.na(character)) %>%
       dplyr::select(character) %>%
-      dplyr::mutate(lab_number = stringr::str_extract(character, "#.*is "),
+      dplyr::mutate(lab_number = stringr::str_extract(character, "#[^(is)]* is "),
                     lab_number = trimws(stringr::str_replace_all(lab_number, "(#|,|&|(is))", "")),
                     lab_number = stringr::str_replace_all(lab_number, "[ \t\r\n]+", " "),
                     param_description = stringr::str_extract(character, "Concentration of .* for sample"),