[misc] use stringi in inner_update() this is fractions of a ms faster

Author: JanMarvin

NAMESPACE

@@ -164,6 +164,7 @@ importFrom(grDevices,tiff)
 importFrom(magrittr,"%>%")
 importFrom(stringi,stri_c)
 importFrom(stringi,stri_encode)
+importFrom(stringi,stri_extract_first)
 importFrom(stringi,stri_isempty)
 importFrom(stringi,stri_join)
 importFrom(stringi,stri_match)

R/openxlsx2-package.R

@@ -12,9 +12,9 @@
 #' @import R6
 #' @importFrom grDevices bmp col2rgb colors dev.copy dev.list dev.off jpeg png rgb tiff
 #' @importFrom magrittr %>%
-#' @importFrom stringi stri_c stri_encode stri_isempty stri_join stri_match
-#'   stri_match_all_regex stri_order stri_opts_collator stri_pad_left
-#'   stri_rand_strings stri_read_lines stri_replace_all_fixed
+#' @importFrom stringi stri_c stri_encode stri_extract_first stri_isempty
+#'   stri_join stri_match stri_match_all_regex stri_order stri_opts_collator
+#'   stri_pad_left stri_rand_strings stri_read_lines stri_replace_all_fixed
 #'   stri_split_fixed stri_split_regex stri_sub stri_unescape_unicode
 #'   stri_unique
 #' @importFrom utils download.file head menu read.csv unzip

R/write.R

@@ -62,8 +62,8 @@ inner_update <- function(
     # create missing cells
     cc_missing <- create_char_dataframe(names(cc), length(missing_cells))
     cc_missing$r     <- missing_cells
-    cc_missing$row_r <- gsub("[[:upper:]]", "", cc_missing$r)
-    cc_missing$c_r   <- gsub("[[:digit:]]", "", cc_missing$r)
+    cc_missing$row_r <- stringi::stri_extract_first(missing_cells, regex = "[0-9]+")
+    cc_missing$c_r   <- stringi::stri_extract_first(missing_cells, regex = "[A-Z]+")
 
     # assign to cc
     cc <- rbind(cc, cc_missing)