Merge pull request #75 from poissonconsulting/reqName

replaced `requireNamespace()` with `rlang::check_installed()`

DESCRIPTION

@@ -25,6 +25,7 @@ Imports:
     graphics,
     lifecycle,
     purrr,
+    rlang,
     stats,
     tibble,
     tidyplus,

R/plot-biomass.R

@@ -13,8 +13,8 @@
 #' @examples
 #' ypr_plot_biomass(ypr_population(), color = "white")
 ypr_plot_biomass <- function(population, y = "Biomass", color = NULL) {
-  if (!requireNamespace("ggplot2")) err("Package 'ggplot2' must be installed.")
-  if (!requireNamespace("scales")) err("Package 'scales' must be installed.")
+  rlang::check_installed("ggplot2")
+  rlang::check_installed("scales")
   chk_string(y)
   chk_subset(y, c("Biomass", "Eggs"))
 

R/plot-fish.R

@@ -16,8 +16,8 @@
 ypr_plot_fish <- function(population, x = "Age", y = "Survivors",
                           percent = FALSE,
                           binwidth = 1L, color = NULL) {
-  if (!requireNamespace("ggplot2")) err("Package 'ggplot2' must be installed.")
-  if (!requireNamespace("scales")) err("Package 'scales' must be installed.")
+  rlang::check_installed("ggplot2")
+  rlang::check_installed("scales")
   chk_string(y)
   chk_subset(y, c(
     "Survivors", "Spawners", "Caught", "Harvested",

R/plot-schedule.R

@@ -12,8 +12,8 @@
 #' @examples
 #' ypr_plot_schedule(ypr_population())
 ypr_plot_schedule <- function(population, x = "Age", y = "Length") {
-  if (!requireNamespace("ggplot2")) err("Package 'ggplot2' must be installed.")
-  if (!requireNamespace("scales")) err("Package 'scales' must be installed.")
+  rlang::check_installed("ggplot2")
+  rlang::check_installed("scales")
 
   schedule <- ypr_tabulate_schedule(object = population)
 

R/plot-sr.R

@@ -13,8 +13,8 @@ ypr_plot_sr <- function(population,
                         harvest = TRUE,
                         biomass = FALSE,
                         plot_values = TRUE) {
-  if (!requireNamespace("ggplot2")) err("Package 'ggplot2' must be installed.")
-  if (!requireNamespace("scales")) err("Package 'scales' must be installed.")
+  rlang::check_installed("ggplot2")
+  rlang::check_installed("scales")
 
   chk_number(Ly)
   chk_gte(Ly)

R/plot-yield.R

@@ -46,8 +46,8 @@ ypr_plot_yield.default <- function(object,
                                    ...) {
   chkor_vld(vld_is(object, "ypr_population"), vld_is(object, "ypr_ecotypes"))
 
-  if (!requireNamespace("ggplot2")) err("Package 'ggplot2' must be installed.")
-  if (!requireNamespace("scales")) err("Package 'scales' must be installed.")
+  rlang::check_installed("ggplot2")
+  rlang::check_installed("scales")
   chk_number(Ly)
   chk_gte(Ly)
   chk_flag(biomass)
@@ -120,8 +120,8 @@ ypr_plot_yield.ypr_populations <- function(object,
                                            u = harvest,
                                            plot_values = TRUE,
                                            ...) {
-  if (!requireNamespace("ggplot2")) err("Package 'ggplot2' must be installed.")
-  if (!requireNamespace("scales")) err("Package 'scales' must be installed.")
+  rlang::check_installed("ggplot2")
+  rlang::check_installed("scales")
   chk_string(y)
   chk_subset(y, c("Yield", "Age", "Length", "Weight", "Effort", "YPUE"))
   chk_flag(u)

R/report.R

@@ -56,7 +56,7 @@ ypr_report <- function(population,
   chk_string(file)
   chk_flag(view)
   chk_flag(ask)
-  if (!requireNamespace("usethis")) err("Package 'usethis' must be installed.")
+  rlang::check_installed("usethis")
 
   if (grepl("[.](R|r)md$", file)) {
     wrn("File extension on argument `file` is deprecated (please remove).")
@@ -86,20 +86,15 @@ ypr_report <- function(population,
   )
 
   if (view) {
-    if (!requireNamespace("rmarkdown")) {
-      err("Package 'rmarkdown' is required to render the report to html.")
-    }
+    rlang::check_installed("rmarkdown", reason = "to render the report to html.")
 
     file_html <- p0(.sub(file, "[.](R|r)md$", ""), ".html")
     if (!ask_file(file_html, ask)) {
       return(invisible(readLines(file)))
     }
 
     rmarkdown::render(file, output_format = "html_document", quiet = TRUE)
-    if (!requireNamespace("rstudioapi")) {
-      err("Package 'rstudioapi' is required to view the html report.")
-    }
-
+    rlang::check_installed("rstudioapi", reason = "to view the html report.")
     rstudioapi::viewer(file_html)
   }
   invisible(readLines(file))