[R/paste] add a few stringi::stri_join

Author: JanMarvin

R/class-workbook.R

@@ -3478,7 +3478,7 @@ wbWorkbook <- R6::R6Class(
 
 
           if (!is.null(cc)) {
-            cc$r <- paste0(cc$c_r, cc$row_r)
+            cc$r <- stri_join(cc$c_r, cc$row_r)
             # prepare data for output
 
             # there can be files, where row_attr is incomplete because a row

R/utils.R

@@ -20,7 +20,7 @@ naToNULLList <- function(x) {
 paste_c <- function(..., sep = "", collapse = " ", unlist = FALSE) {
   x <- c(...)
   if (unlist) x <- unlist(x, use.names = FALSE)
-  paste(x[nzchar(x)], sep = "", collapse = collapse)
+  stri_join(x[nzchar(x)], sep = sep, collapse = collapse)
 }
 
 `%||%` <- function(x, y) if (is.null(x)) y else x

src/helper_functions.cpp

@@ -265,7 +265,7 @@ void wide_to_long(Rcpp::DataFrame z, Rcpp::IntegerVector vtyps, Rcpp::DataFrame
 
 
 // [[Rcpp::export]]
-Rcpp::List build_cell_merges(Rcpp::List comps){
+Rcpp::List build_cell_merges(Rcpp::List comps) {
 
   size_t nMerges = comps.size();
   Rcpp::List res(nMerges);