Fixes package

R/utils.R

@@ -23,10 +23,11 @@ fill_in <- function(list, names) {
 }
 
 output_dir <- function() {
-  opt <- getOption("valreport_output_dir", default = NULL)
-  env <- Sys.getenv("VALREPORT_OUTPUT_DIR", unset = getwd())
-
-  opt %||% env
+  getOption("valreport_output_dir",
+            default = Sys.getenv("VALREPORT_OUTPUT_DIR",
+                                 unset = getwd()
+            )
+  )
 }
 
 rendering_dir <- function() {

tests/testthat/_snaps/card.md

@@ -1,4 +1,4 @@
-# Card is created with the expected components depending on arguments: only has title if no other argument is set
+# Card is created with the expected components depending on arguments / only has title if no other argument is set
 
     Code
       create_info_card("test title")
@@ -7,7 +7,7 @@
         <h3 class="card-title">test title</h3>
       </div>
 
-# Card is created with the expected components depending on arguments: has title and header
+# Card is created with the expected components depending on arguments / has title and header
 
     Code
       create_info_card(title = "test title", header = "Information header")
@@ -17,7 +17,7 @@
         <h3 class="card-title">test title</h3>
       </div>
 
-# Card is created with the expected components depending on arguments: has all arguments set
+# Card is created with the expected components depending on arguments / has all arguments set
 
     Code
       create_info_card(title = "test title", header = "Information header", text = "Extra test")

tests/testthat/_snaps/render_table.md

@@ -1,4 +1,4 @@
-# Namespace table is created: It is created by without error from existing example package assessment
+# Namespace table is created / It is created by without error from existing example package assessment
 
     Code
       prepare_namespace_table(example_assessment)

tests/testthat/test-utils.R

@@ -6,7 +6,7 @@ test_that("include_exclude_from works", {
 })
 
 test_that("All riskmetric:::pkg_ref_class_hierarchy have value to display in our report", {
-  allowed_names <- unlist(riskmetric:::pkg_ref_class_hierarchy)
+  allowed_names <- unlist(riskmetric::pkg_ref_class_hierarchy)
 
   expect_true(all(!is.na(sapply(allowed_names, get_pkg_origin))))
 })