major update with new functions and renv is out! see NEWS section

R/doc2dd.R

@@ -108,6 +108,9 @@ doc2dd <- function(data,
       )
   }
 
+
+
+
   ## Defining the calculations
   if (is_missing(col.calculation)) {
     out <- out |>
@@ -115,12 +118,13 @@ doc2dd <- function(data,
         calculations = missing.default
       )
   } else {
+    # With inspiration from textclean package, curly apostrophe is replaced
     out <- out |>
       dplyr::mutate(
         calculations = dplyr::pick(col.calculation) |>
           unlist() |>
           tolower() |>
-          (\(.x) gsub("’", "'", .x))()
+          replace_curly_quote()
       )
   }
 
@@ -288,3 +292,22 @@ is_missing <- function(data,nas=c("", "NA")) {
     is.na(data) | data %in% nas
   }
 }
+
+
+#' Replace curly apostrophes and quotes from word
+#'
+#' @description
+#' Copied from textclean, which has not been updated since 2018 and is not
+#' on CRAN. Github:https://github.com/trinker/textclean
+#'
+#' @param x character vector
+#'
+#' @return character vector
+replace_curly_quote <- function(x){
+  replaces <- c('\x91', '\x92', '\x93', '\x94')
+  Encoding(replaces) <- "latin1"
+  for (i in 1:4) {
+    x <- gsub(replaces[i], c("'", "'", "\"", "\"")[i], x, fixed = TRUE)
+  }
+  x
+}

R/ds2dd_detailed.R

@@ -343,10 +343,10 @@ ds2dd_detailed <- function(data,
       lapply(function(x) {
         if (is.factor(x)) {
           ## Re-factors to avoid confusion with missing levels
-          ## Assumes alle relevant levels are represented in the data
+          ## Assumes all relevant levels are represented in the data
           re_fac <- factor(x)
           paste(
-            paste(unique(as.numeric(re_fac)),
+            paste(seq_along(levels(re_fac)),
               levels(re_fac),
               sep = ", "
             ),