fix: lintr annotations

gisler · Dec 26, 2023 · ea58517 · ea58517
1 parent a755980
commit ea58517
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/R/RPhosFate.R b/R/RPhosFate.R
@@ -92,7 +92,7 @@ setMethod(
     x@erosion@rl_LFa <- lapp(
       c(x = rl_acc_wtd_ovl, y = rl_LFa_m),
       fun = function(x, y) {
-        ((x * is_res)^(1 + y) - ((x - 1) * is_res)^(1 + y)) / # nolint
+        ((x * is_res)^(1 + y) - ((x - 1) * is_res)^(1 + y)) /
           (is_res * 22.13^y)
       },
       cores = x@is_ths

diff --git a/R/input.R b/R/input.R
@@ -162,7 +162,7 @@ DEMrelatedInput <- function(
   ls_tmp = FALSE
 ) {
   if (!requireNamespace("whitebox", quietly = TRUE) ||
-      packageVersion("whitebox") < package_version("2.0.0")) {
+        packageVersion("whitebox") < package_version("2.0.0")) {
     stop(
       'Package "whitebox" (v2.0.0 or higher) must be installed for this ',
       "functionality.",
@@ -403,14 +403,14 @@ DEMrelatedInput <- function(
   }
 
   if (!is.null(cs_rds)) {
-    rl_dir_rds <- lapp(
+    lapp(
       c(
         x = rl_dir_tau,
         y = rast("cha.tif"),
         z = rl_rds
       ),
       fun = function(x, y, z) {
-        ifelse(is.na(y), ifelse(is.na(z), x, NA_integer_), x)
+        ifelse(is.na(y), ifelse(is.na(z), x, NA_integer_), x) # nolint
       },
       cores = is_ths,
       filename = "dir_tau_rds.tif",

diff --git a/R/utils.R b/R/utils.R
@@ -157,7 +157,7 @@ slots2list <- function(parameters) {
 
 writeLayer <- function(cmt, layer, rl, datatype, substance = NULL) {
   if (length(cmt@is_MCi) == 0L || (length(cmt@is_MCi) == 1L &&
-      layer %in% cmt@cv_MCl)) {
+        layer %in% cmt@cv_MCl)) {
     if (!is.null(substance)) {
       layer <- sub("^xx", tolower(substance), layer)
     }

diff --git a/inst/tinytest/test_gettersSetters.R b/inst/tinytest/test_gettersSetters.R
@@ -13,7 +13,7 @@ x <- RPhosFate(
   ls_ini = TRUE
 )
 
-source("parameters.R", local = TRUE) # nolint
+source("parameters.R", local = TRUE)
 
 #### getLayer and [ extract operator ####
 layers <- list.files(

diff --git a/inst/tinytest/test_highLevelInterface.R b/inst/tinytest/test_highLevelInterface.R
@@ -13,7 +13,7 @@ x <- RPhosFate(
   ls_ini = TRUE
 )
 
-source("parameters.R", local = TRUE) # nolint
+source("parameters.R", local = TRUE)
 
 #### RPhosFate and catchment ####
 y <- do.call(RPhosFate, parameters)