Remove # nolint for options

epiverse-trace · Aug 13, 2024 · 5dbd93b · 5dbd93b
1 parent b4e66ed
commit 5dbd93b
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/.lintr b/.lintr
@@ -9,7 +9,8 @@ linters: all_linters(
       modify_defaults(
         default_undesirable_functions,
         citEntry = "use the more modern bibentry() function",
-        library = NULL # too many false positive in too many files
+        library = NULL, # too many false positive in too many files
+        options = NULL
       )
     ),
     function_argument_linter = NULL,

diff --git a/R/lost_tags_action.R b/R/lost_tags_action.R
@@ -43,11 +43,11 @@
 #'
 lost_tags_action <- function(action = c("warning", "error", "none"),
                              quiet = FALSE) {
-  datatagr_options <- options("datatagr")$datatagr # nolint
+  datatagr_options <- options("datatagr")$datatagr
 
   action <- match.arg(action)
   datatagr_options$lost_tags_action <- action
-  options(datatagr = datatagr_options) # nolint
+  options(datatagr = datatagr_options)
   if (!quiet) {
     if (action == "warning") msg <- "Lost tags will now issue a warning."
     if (action == "error") msg <- "Lost tags will now issue an error."
@@ -64,5 +64,5 @@ lost_tags_action <- function(action = c("warning", "error", "none"),
 #' @rdname lost_tags_action
 
 get_lost_tags_action <- function() {
-  options("datatagr")$datatagr$lost_tags_action # nolint
+  options("datatagr")$datatagr$lost_tags_action
 }