Fix CRAN notes

gdemin · Jul 16, 2023 · 668d7ba · 668d7ba
1 parent 3fec3ce
commit 668d7ba
Show file tree

Hide file tree

Showing 19 changed files with 19 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: expss
 Type: Package
 Title: Tables, Labels and Some Useful Functions from Spreadsheets and 'SPSS' Statistics
-Version: 0.11.5
+Version: 0.11.6
 Maintainer: Gregory Demin <[email protected]>
 Authors@R: c(
          person("Gregory", "Demin", email = "[email protected]",

diff --git a/NEWS b/NEWS
@@ -1,4 +1,4 @@
-0.11.5 (10.07.2023)
+0.11.6 (14.07.2023)
 ================
 * add 'as_spss' argument to 'significance_cpct' for more SPSS-compatible results (issue #100) 
 * add rounding option (issue #100)

diff --git a/R/dichotomy.R b/R/dichotomy.R
@@ -40,6 +40,7 @@
 #' @seealso \code{\link{as.category}} for reverse conversion, \link{mrset},
 #'   \link{mdset} for usage multiple-response variables with tables.
 #' @examples
+#' data.table::setDTthreads(2)
 #' # toy example
 #' # brands - multiple response question
 #' # Which brands do you use during last three months? 

diff --git a/R/labels.R b/R/labels.R
@@ -230,6 +230,7 @@ add_labelled_class.data.frame = add_labelled_class.list
 #' @export
 #' @examples
 #' # toy example
+#' data.table::setDTthreads(2)
 #' set.seed(123)
 #' # score - evaluation of tested product
 #' 

diff --git a/R/merge.R b/R/merge.R
@@ -26,6 +26,7 @@
 #' @export
 #'
 #' @examples
+#' data.table::setDTthreads(2)
 #' data(mtcars)
 #' # apply labels
 #' mtcars = apply_labels(mtcars,

diff --git a/R/mrset.R b/R/mrset.R
@@ -25,6 +25,7 @@
 #' @export
 #'
 #' @examples
+#' data.table::setDTthreads(2)
 #' data(product_test)
 #' 
 #' cross_cpct(product_test, mrset(a1_1 %to% a1_6))

diff --git a/R/nest.R b/R/nest.R
@@ -30,6 +30,7 @@
 #'                       carb = "Number of carburetors"
 #' )
 #' 
+#' data.table::setDTthreads(2) # for running on CRAN
 #' cross_cases(mtcars, cyl, am %nest% vs)
 #' 
 #' # list of variables

diff --git a/R/significance_cpct.R b/R/significance_cpct.R
@@ -177,13 +177,13 @@ KEEP_STAT = c("percent", "cases", "means", "bases", "sd", "none")
 #'                       carb = "Number of carburetors"
 #' )
 #' 
+#' \dontrun{
 #' mtcars_table = cross_cpct(mtcars, 
 #'                           list(cyl, gear),
 #'                           list(total(), vs, am)
 #'                           )
 #' 
 #' significance_cpct(mtcars_table)
-#' \dontrun{
 #' # comparison with first column
 #' significance_cpct(mtcars_table, compare_type = "first_column")
 #' 

diff --git a/R/split_labels.R b/R/split_labels.R
@@ -29,6 +29,7 @@
 #' @export
 #' @seealso \link[base]{strsplit}
 #' @examples
+#' data.table::setDTthreads(2)
 #' data(mtcars)
 #'
 #' # apply labels

diff --git a/R/subtotal.R b/R/subtotal.R
@@ -33,6 +33,7 @@
 #' @param data intermediate table. See \link{tables}.
 #' @return multiple response set or list of the multiple response sets
 #' @examples 
+#' data.table::setDTthreads(2)
 #' ol = c(1:7, 99)
 #' var_lab(ol) = "Liking"
 #' val_lab(ol)  = num_lab("

diff --git a/man/as.dichotomy.Rd b/man/as.dichotomy.Rd
diff --git a/man/merge.etable.Rd b/man/merge.etable.Rd
diff --git a/man/mrset.Rd b/man/mrset.Rd
diff --git a/man/nest.Rd b/man/nest.Rd
diff --git a/man/net.Rd b/man/net.Rd
diff --git a/man/significance.Rd b/man/significance.Rd
diff --git a/man/split_labels.Rd b/man/split_labels.Rd
diff --git a/man/val_lab.Rd b/man/val_lab.Rd
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -3,5 +3,6 @@ if(capabilities('long.double')){
     library(expss)
     options(covr = FALSE)
     options(width = 1000)
+    data.table::setDTthreads(2)
     testthat::test_check("expss")
 }