ready for CRAN?

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: datawizard
 Title: Easy Data Wrangling
-Version: 0.2.1.9001
+Version: 0.2.2
 Authors@R: c(
     person("Dominique", "Makowski", , "dom.makowski@gmail.com", role = "aut",
            comment = c(ORCID = "0000-0001-5375-9967", Twitter = "@Dom_Makowski")),

NEWS.md

@@ -1,4 +1,4 @@
-# datawizard 0.2.1.9000
+# datawizard 0.2.2
 
 - New function `data_extract()` (or its alias `extract()`) to pull single 
   variables from a data frame, possibly naming each value by the row names

R/center.R

@@ -90,13 +90,12 @@ center.numeric <- function(x,
                            reference = NULL,
                            center = NULL,
                            ...) {
-
   args <- .process_std_center(x, weights, robust, verbose, reference, center, scale = NULL)
 
   if (is.null(args)) { # all NA?
     return(x)
   } else if (is.null(args$check)) {
-    vals <- rep(0, length(args$vals))  # If only unique value
+    vals <- rep(0, length(args$vals)) # If only unique value
   } else {
     vals <- as.vector(args$vals - args$center)
   }
@@ -147,8 +146,9 @@ center.data.frame <- function(x,
                               ...) {
   # process arguments
   args <- .process_std_args(x, select, exclude, weights, append,
-                            append_suffix = "_c", force, remove_na, reference,
-                            .center = center, .scale = NULL)
+    append_suffix = "_c", force, remove_na, reference,
+    .center = center, .scale = NULL
+  )
 
   # set new values
   x <- args$x
@@ -186,9 +186,10 @@ center.grouped_df <- function(x,
                               append = FALSE,
                               center = NULL,
                               ...) {
-
-  args <- .process_grouped_df(x, select, exclude, append, append_suffix = "_c",
-                              reference, weights, force)
+  args <- .process_grouped_df(x, select, exclude, append,
+    append_suffix = "_c",
+    reference, weights, force
+  )
 
   for (rows in args$grps) {
     args$x[rows, ] <- center(

R/data_extract.R

@@ -60,8 +60,8 @@ data_extract.data.frame <- function(data, select, name = NULL, ...) {
     name <- rownames(data)
   }
   if (length(name) == 1) {
-    stats::setNames(data[,select, drop = TRUE], data[,name, drop = TRUE])
+    stats::setNames(data[, select, drop = TRUE], data[, name, drop = TRUE])
   } else {
-    stats::setNames(data[,select, drop = TRUE], name)
+    stats::setNames(data[, select, drop = TRUE], name)
   }
 }

R/standardize.R

@@ -140,14 +140,13 @@ standardize.numeric <- function(x,
                                 center = NULL,
                                 scale = NULL,
                                 ...) {
-
   args <- .process_std_center(x, weights, robust, verbose, reference, center, scale)
 
   # Perform standardization
   if (is.null(args)) { # all NA?
     return(x)
   } else if (is.null(args$check)) {
-    vals <- rep(0, length(args$vals))  # If only unique value
+    vals <- rep(0, length(args$vals)) # If only unique value
   } else {
     if (two_sd) {
       vals <- as.vector((args$vals - args$center) / (2 * args$scale))
@@ -172,7 +171,7 @@ standardize.integer <- standardize.numeric
 
 #' @export
 standardize.matrix <- function(x, ...) {
-  xl <- lapply(seq_len(ncol(x)), function(i) x[,i])
+  xl <- lapply(seq_len(ncol(x)), function(i) x[, i])
 
   xz <- lapply(xl, datawizard::standardize, ...)
 
@@ -239,8 +238,9 @@ standardize.data.frame <- function(x,
                                    ...) {
   # process arguments
   args <- .process_std_args(x, select, exclude, weights, append,
-                            append_suffix = "_z", force, remove_na, reference,
-                            .center = center, .scale = scale)
+    append_suffix = "_z", force, remove_na, reference,
+    .center = center, .scale = scale
+  )
 
   # set new values
   x <- args$x
@@ -283,9 +283,10 @@ standardize.grouped_df <- function(x,
                                    center = NULL,
                                    scale = NULL,
                                    ...) {
-
-  args <- .process_grouped_df(x, select, exclude, append, append_suffix = "_z",
-                              reference, weights, force)
+  args <- .process_grouped_df(x, select, exclude, append,
+    append_suffix = "_z",
+    reference, weights, force
+  )
 
   for (rows in args$grps) {
     args$x[rows, ] <- standardize(

R/unstandardize.R

@@ -161,10 +161,9 @@ unstandardize.matrix <- function(x,
     centers <- attr(x, "center")
 
     xl <- lapply(seq_len(ncol(x)), function(i) {
-      tmp <- x[,i]
+      tmp <- x[, i]
       attributes(tmp) <- list(center = centers[i], scale = scales[i])
       tmp
-
     })
 
     xz <- lapply(xl, datawizard::unstandardize, ...)

R/utils_standardize_center.R

@@ -96,9 +96,9 @@
   remove_na <- match.arg(remove_na, c("none", "selected", "all"))
 
   omit <- switch(remove_na,
-                 none = logical(nrow(x)),
-                 selected = rowSums(sapply(x[select], is.na)) > 0,
-                 all = rowSums(sapply(x, is.na)) > 0
+    none = logical(nrow(x)),
+    selected = rowSums(sapply(x[select], is.na)) > 0,
+    all = rowSums(sapply(x, is.na)) > 0
   )
   x <- x[!omit, , drop = FALSE]
 
@@ -378,8 +378,8 @@
       }
     )
     if (is.null(model) ||
-        # prevent self reference
-        inherits(model, "parameters_model")) {
+      # prevent self reference
+      inherits(model, "parameters_model")) {
       model <- tryCatch(
         {
           get(obj_name, envir = globalenv())

README.md

@@ -16,11 +16,6 @@ transform, and prepare your data for analysis.
 
 # Installation
 
-[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/datawizard)](https://cran.r-project.org/package=datawizard)
-[![datawizard status
-badge](https://easystats.r-universe.dev/badges/datawizard)](https://easystats.r-universe.dev)
-
-
 | Type        | Source     | Command                                                                      |
 |-------------|------------|------------------------------------------------------------------------------|
 | Release     | CRAN       | `install.packages("datawizard")`                                             |

cran-comments.md

@@ -1,14 +1,17 @@
 ## Test environments
-* local R installation, R 4.1.1
-* ubuntu 16.04 (on github-actions), R 4.1.1
+* local R installation, R 4.1.2
+* ubuntu 16.04 (on github-actions), R 4.1.2
 * win-builder (devel)
 
 ## R CMD check results
 
 0 errors | 0 warnings | 0 note
 
-* Maintenance release.
+* Maintenance and bug fix release.
 
-## Reverse Dependancies
+## revdepcheck results
 
-* No problems detected.
+We checked 10 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package.
+
+ * We saw 0 new problems
+ * We failed to check 0 packages

inst/WORDLIST

@@ -62,6 +62,7 @@ rescaling
 stackexchange
 tailedness
 th
+tibbles
 unitless
 untransformed
 visualisation

revdep/README.md

@@ -0,0 +1,25 @@
+# Platform
+
+|field    |value                                        |
+|:--------|:--------------------------------------------|
+|version  |R version 4.1.2 (2021-11-01)                 |
+|os       |Windows 10 x64 (build 19044)                 |
+|system   |x86_64, mingw32                              |
+|ui       |RStudio                                      |
+|language |(EN)                                         |
+|collate  |English_United Kingdom.1252                  |
+|ctype    |English_United Kingdom.1252                  |
+|tz       |Europe/Berlin                                |
+|date     |2022-01-04                                   |
+|rstudio  |2021.09.1+372 Ghost Orchid (desktop)         |
+|pandoc   |2.16.2 @ C:/PROGRA~1/Pandoc/ (via rmarkdown) |
+
+# Dependencies
+
+|package    |old    |new    |<U+0394>  |
+|:----------|:------|:------|:--|
+|datawizard |0.2.1  |0.2.2  |*  |
+|insight    |0.14.5 |0.14.5 |   |
+
+# Revdeps
+

revdep/cran.md

@@ -0,0 +1,7 @@
+## revdepcheck results
+
+We checked 10 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package.
+
+ * We saw 0 new problems
+ * We failed to check 0 packages
+

revdep/failures.md

@@ -0,0 +1 @@
+*Wow, no problems at all. :)*

revdep/problems.md

@@ -0,0 +1 @@
+*Wow, no problems at all. :)*

tests/testthat/test-std_center.R

@@ -1,5 +1,4 @@
 if (require("testthat")) {
-
   d <- iris[1:4, ]
 
   # standardize -----------------------------------------------------

tests/testthat/test-std_center_scale_args.R

@@ -1,5 +1,4 @@
 if (require("testthat")) {
-
   d <- data.frame(a = 1:5, b = 21:25, c = 41:45)
 
   test_that("standardize", {