Bump required R version to 4.0 (#515)

* Bump required R version to 4.0

* news [skip ci]

* fix styling

---------

Co-authored-by: Daniel <[email protected]>

Author: etiennebacher

DESCRIPTION

@@ -31,7 +31,7 @@ License: MIT + file LICENSE
 URL: https://easystats.github.io/datawizard/
 BugReports: https://github.com/easystats/datawizard/issues
 Depends:
-    R (>= 3.6)
+    R (>= 4.0)
 Imports:
     insight (>= 1.0.0),
     stats,

NEWS.md

@@ -2,6 +2,8 @@
 
 BREAKING CHANGES AND DEPRECATIONS
 
+* *datawizard* now requires R >= 4.0 (#515).
+
 * Argument `drop_na` in `data_match()` is deprecated now. Please use 
   `remove_na` instead.
 

R/categorize.R

@@ -363,7 +363,6 @@ categorize.grouped_df <- function(x,
 }
 
 
-
 # tools --------------------
 
 .equal_range <- function(x, range, n_groups, lowest = NULL) {

R/data_arrange.R

@@ -27,7 +27,6 @@ data_arrange <- function(data, select = NULL, safe = TRUE) {
 }
 
 
-
 #' @export
 data_arrange.default <- function(data, select = NULL, safe = TRUE) {
   if (is.null(select) || length(select) == 0) {
@@ -100,7 +99,6 @@ data_arrange.default <- function(data, select = NULL, safe = TRUE) {
 }
 
 
-
 #' @export
 data_arrange.grouped_df <- function(data, select = NULL, safe = TRUE) {
   grps <- attr(data, "groups", exact = TRUE)

R/data_match.R

@@ -182,7 +182,6 @@ data_match <- function(x,
 }
 
 
-
 #' @rdname data_match
 #' @export
 data_filter <- function(x, ...) {

R/data_read.R

@@ -127,7 +127,6 @@ data_read <- function(path,
 }
 
 
-
 # helper -----------------------
 
 .file_ext <- function(x) {
@@ -156,7 +155,6 @@ data_read <- function(path,
 }
 
 
-
 # process imported data from SPSS, SAS or Stata -----------------------
 
 .post_process_imported_data <- function(x, convert_factors, verbose) {
@@ -225,7 +223,6 @@ data_read <- function(path,
 }
 
 
-
 # read functions -----------------------
 
 .read_spss <- function(path, encoding, convert_factors, verbose, ...) {

R/data_relocate.R

@@ -139,7 +139,6 @@ data_relocate <- function(data,
 }
 
 
-
 #' @rdname data_relocate
 #' @export
 data_reorder <- function(data,

R/data_rescale.R

@@ -82,7 +82,6 @@ change_scale <- function(x, ...) {
 }
 
 
-
 #' @export
 rescale.default <- function(x, verbose = TRUE, ...) {
   if (isTRUE(verbose)) {
@@ -94,7 +93,6 @@ rescale.default <- function(x, verbose = TRUE, ...) {
 }
 
 
-
 #' @rdname rescale
 #' @export
 rescale.numeric <- function(x,
@@ -233,7 +231,6 @@ rescale.grouped_df <- function(x,
 }
 
 
-
 #' @rdname rescale
 #' @export
 rescale.data.frame <- function(x,

R/data_reverse.R

@@ -115,7 +115,6 @@ reverse.numeric <- function(x,
 }
 
 
-
 #' @export
 reverse.factor <- function(x, range = NULL, verbose = TRUE, ...) {
   # Warning if all NaNs
@@ -195,7 +194,6 @@ reverse.factor <- function(x, range = NULL, verbose = TRUE, ...) {
 }
 
 
-
 #' @export
 reverse.grouped_df <- function(x,
                                select = NULL,
@@ -254,7 +252,6 @@ reverse.grouped_df <- function(x,
 }
 
 
-
 #' @rdname reverse
 #' @export
 reverse.data.frame <- function(x,

R/data_tabulate.R

@@ -690,8 +690,6 @@ print_md.datawizard_tables <- function(x, big_mark = NULL, ...) {
 }
 
 
-
-
 # tools --------------------
 
 .table_header <- function(x, format = "text") {