remove stApply() 🔥

NAMESPACE

@@ -30,7 +30,6 @@ export(scaleWithin)
 export(setColClass)
 export(signifSymbols)
 export(squaretize)
-export(stApply)
 export(substrBib)
 export(whichIs)
 export(wordCount)

R/applyString.R

@@ -6,33 +6,33 @@
 #' Kevin Cazelles
 #'
 #' @param x a character vector, or a vector to be coerced to a character vector.
-#' @param FUN the function to be applied, see [base::lapply].
+#' @param FUN the function to be applied, see [base::lapply()].
 #' @param pos a vector indicating the elements position.
-#' @param pattern a see [base::gregexpr].
-#' @param ... argument to be passed to `gregexpr`.
+#' @param pattern a pattern see [base::gregexpr()].
+#' @param ... argument to be passed to [base::gregexpr()].
 #'
 #' @note
 #' In case both `pos` or `pattern`, the latter is ignored.
 #'
 #' @return
 #' A character vector.
 #'
-#' @importFrom magrittr %>% %<>%
+#' @importFrom magrittr %>%
 #' @export
 #' @examples
 #' applyString('cool',  pos = 1:2, FUN = toupper)
 #' applyString(c('cool', 'pro'),  pattern = 'o', FUN = toupper)
 
 
 applyString <- function(x, FUN, pos = NULL, pattern = NULL) {
-    
-    if (!is.character(x)) 
+
+    if (!is.character(x))
         x <- as.character(x)
-    
+
     if (!is.null(pos)) {
         tmp <- strsplit(x, split = "")
         tmp_fun <- function(x) {
-            x[pos] %<>% FUN
+            x[pos] <- FUN(x[pos])
             paste(x, collapse = "")
         }
         out <- lapply(tmp, tmp_fun) %>% unlist
@@ -50,7 +50,6 @@ applyString <- function(x, FUN, pos = NULL, pattern = NULL) {
             out <- apply(cbind(tmp_mth, tmp_inv), 1, FUN = reassemble, f = FUN)
         }
     }
-
     out
 }
 
@@ -61,7 +60,7 @@ reassemble <- function(x, f) {
     sz <- length(char1) + length(char2)
     out <- rep("", sz)
     out[seq(1, sz, 2)] <- char2
-    if (sz > 1) 
+    if (sz > 1)
         out[seq(2, sz - 1, 2)] <- f(x[1L][[1L]])
     paste(out, collapse = "")
 }

R/signifSymbols.R

@@ -17,7 +17,7 @@
 #' @examples
 #' signifSymbols(.012)
 #' signifSymbols(.008)
-#' sapply(c(.2, .08, .04, .008, 0.0001), signifSymbols)
+#' lapply(c(.2, .08, .04, .008, 0.0001), signifSymbols)
 
 signifSymbols <- function(pvalue, thresholds = c(0.1, 0.05, 0.01, 0.001),
   symbols = c(".", "*", "**", "***"), notsignif = "n.s.") {