remove quiet option from function arguments

Author: AAoritz

R/classify_nuts.R

@@ -9,7 +9,6 @@
 #' @param group_vars Variable name(s) for classification within groups. Always computes overlap within country. `NULL`by default.
 #' @param ties Picks `'most_recent'` or `'oldest'` version when overlap is identical across multiple NUTS versions. `'most_recent'`
 #' by default.
-#' @param quiet Suppress messages and warnings. `FALSE` by default.
 #'
 #' @return A list of three tibbles. The first tibble contains the original data with the classified NUTS version, level, and country.
 #' The second tibble lists the group-specific overlap with each NUTS version. The third tibble shows missing NUTS codes
@@ -53,13 +52,7 @@ classify_nuts <-
   function(data = data,
            nuts_code = nuts_code,
            group_vars = NULL,
-           ties = "most_recent",
-           quiet = FALSE) {
-
-    if (quiet) {
-      old <- options(cli.default_handler = function(...) { })
-      on.exit(options(old), add = TRUE)
-    }
+           ties = "most_recent") {
 
     # DEFINE CLI DIVs
     #-----------------------

R/convert_nuts_level.R

@@ -10,7 +10,6 @@
 #' @param missing_rm Boolean that is FALSE by default. TRUE removes regional flows that depart from missing NUTS codes.
 #' @param multiple_versions By default equal to `'break'`, throwing an error when providing multiple NUTS versions within groups.
 #' If set to `'most_frequent'` data is converted using the best-matching NUTS version.
-#' @param quiet Suppress messages and warnings. `FALSE` by default.
 #'
 #' @return A tibble containing NUTS codes, aggregated variable values, and possibly grouping variables.
 #'
@@ -42,21 +41,16 @@ convert_nuts_level <-
            variables = variables,
            weight = NULL,
            missing_rm = FALSE,
-           multiple_versions = "break",
-           quiet=FALSE) {
-
-    if (quiet) {
-      old <- options(cli.default_handler = function(...) { })
-      on.exit(options(old), add = TRUE)
-    }
+           multiple_versions = "break") {
 
     # DEFINE CLI DIVs
     #-----------------------
     cli_div(theme = list(
       span.red = list(color = "red"),
       span.blue = list(color = "blue")
+      )
     )
-    )
+
     # CODE BREAKING CHECKS
     #------------------------
     # Input checks

R/convert_nuts_version.R

@@ -10,7 +10,6 @@
 #' @param missing_rm Boolean that is FALSE by default. TRUE removes regional flows that depart from missing NUTS codes.
 #' @param multiple_versions By default equal to `'break'`, throwing an error when providing multiple NUTS versions within groups.
 #' If set to `'most_frequent'` data is converted using the best-matching NUTS version.
-#' @param quiet Suppress messages and warnings. `FALSE` by default.
 #'
 #' @return A tibble containing NUTS codes, converted variable values, and possibly grouping variables.
 #'
@@ -57,21 +56,16 @@ convert_nuts_version <-
            variables = variables,
            weight = NULL,
            missing_rm = FALSE,
-           multiple_versions = "break",
-           quiet = FALSE) {
-
-    if (quiet) {
-      old <- options(cli.default_handler = function(...) { })
-      on.exit(options(old), add = TRUE)
-    }
+           multiple_versions = "break") {
 
     # DEFINE CLI DIVs
     #-----------------------
     cli_div(theme = list(
       span.red = list(color = "red"),
       span.blue = list(color = "blue")
+      )
     )
-    )
+
     # CODE BREAKING CHECKS
     #------------------------
     # Input checks