chore: update NAMESPACE and documentation; enhance split_tt function to preserve data frame structure

Author: martinctc

NAMESPACE

@@ -55,15 +55,15 @@ importFrom(dplyr,filter)
 importFrom(dplyr,mutate)
 importFrom(dplyr,select)
 importFrom(glue,glue)
+importFrom(graphics,hist)
 importFrom(magrittr,"%>%")
 importFrom(purrr,is_null)
 importFrom(purrr,map)
+importFrom(rlang,.data)
+importFrom(rlang,sym)
 importFrom(rstatix,chisq_test)
 importFrom(stats,chisq.test)
 importFrom(stats,fisher.test)
-importFrom(graphics,hist)
-importFrom(rlang,sym)
-importFrom(rlang,.data)
 importFrom(tibble,enframe)
 importFrom(tibble,tibble)
 importFrom(tidyr,drop_na)

R/chr_to_var.R

@@ -7,7 +7,7 @@
 #' labels (`var_label`) provided by the user.
 #' 
 #' @details
-#' This function is a wrapper around several other {surveytoolbox} functions:
+#' This function is a wrapper around several other surveytoolbox functions:
 #'   - `create_named_list()`
 #'   - `set_vall()`
 #'   - `set_varl()`

R/extract_fa_loads.R

@@ -4,13 +4,15 @@
 #' @param fa_object factanal() model
 #' @keywords factor analysis
 #' 
-#' 
-#' @examples 
+#' @examples
+#' \dontrun{
 #' fa_output <- stats::factanal(
 #'   tidyr::drop_na(psych::bfi),
 #'   factors = 6
 #'   )
 #' extract_fa_loads(fa_output)
+#' }
+#' 
 #' @export
 extract_fa_loads <-function(fa_object){
 

R/globals.R

@@ -2,6 +2,10 @@
 ##
 ## This file is added to minimize the false positives flagged during R CMD check.
 
+#' @importFrom graphics hist
+#' @importFrom stats chisq.test
+#' @importFrom rlang .data sym
+NULL
 
 utils::globalVariables(
   c(
@@ -16,6 +20,12 @@ utils::globalVariables(
     "hclust",
     "dist",
     "t.test",
-    "var_label"
+    "var_label",
+    "statistic",
+    "p",
+    "df",
+    "method",
+    "p.signif",
+    "alternative"
   )
 )

R/split_tt.R

@@ -15,6 +15,6 @@
 split_tt <-function(x, part){
   rowz <- nrow(x)
   samp <- sample(seq_len(rowz),floor(rowz * part))
-  output <-list("train"=x[samp,],"test"=x[-samp,])
+  output <-list("train"=x[samp, , drop = FALSE],"test"=x[-samp, , drop = FALSE])
   output
 }

R/ttest_nps.R

@@ -32,5 +32,5 @@ ttest_nps <- function(x, conf_level = 0.95){
     message()
   message("Returning margin of error:")
 
-  return(ci_range)
+  return(as.numeric(ci_range))
 }

man/chr_to_var.Rd

@@ -93,8 +93,8 @@ test_that("ttest_nps returns margin of error", {
   set.seed(123)
   x <- sample(c(-100, 0, 100), 100, replace = TRUE)
 
-  # Capture the message and result
-  result <- expect_message(ttest_nps(x))
+  # Capture the result (suppress messages)
+  result <- suppressMessages(ttest_nps(x))
 
   expect_type(result, "double")
   expect_true(result > 0)  # Margin of error should be positive
@@ -131,11 +131,13 @@ test_that("split_tt splits data correctly", {
 })
 
 test_that("split_tt handles different proportions", {
+  set.seed(123)
   df <- data.frame(x = 1:100)
 
   result_80 <- split_tt(df, 0.8)
   result_50 <- split_tt(df, 0.5)
 
+  # split_tt now preserves data frame structure with drop = FALSE
   expect_equal(nrow(result_80$train), 80)
   expect_equal(nrow(result_50$train), 50)
 })