Skip to content

Commit

Permalink
style: fix linter annotations
Browse files Browse the repository at this point in the history
  • Loading branch information
gisler committed Dec 15, 2024
1 parent 5a81cf1 commit c551a39
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 3 deletions.
6 changes: 3 additions & 3 deletions R/RPhosFate.R
Original file line number Diff line number Diff line change
Expand Up @@ -88,7 +88,7 @@ setMethod(
# Rill erodibility parameter
m <- b / (1 + b)

z_rad = z * pi / 180
z_rad <- z * pi / 180

((x * ns_siz)^(m + 1) - ((x - 1) * ns_siz)^(m + 1)) /
(ns_res^(m + 2) * (abs(sin(z_rad)) + abs(cos(z_rad)))^m * 22.13^m)
Expand Down Expand Up @@ -450,11 +450,11 @@ setMethod(
is_ths = x@is_ths
)

# begin debugging
# begin debugging # nolint start
# writeRaster(rast(li_tpt$im_ifl , crs = x@helpers@cs_cmt, extent = x@helpers@ex_cmt), filename = "ifl.tif" , datatype = "INT4S", overwrite = TRUE)
# writeRaster(rast(li_tpt$im_ord , crs = x@helpers@cs_cmt, extent = x@helpers@ex_cmt), filename = "ord.tif" , datatype = "INT4S", overwrite = TRUE)
# writeRaster(rast(li_tpt$nm_xxt_rip, crs = x@helpers@cs_cmt, extent = x@helpers@ex_cmt), filename = "xxt_rip.tif", datatype = "FLT8S", overwrite = TRUE)
# end debugging
# end debugging # nolint end
slot(x@substances, substance)@rl_xxr <- writeLayer(x, "xxr" , rast(li_tpt$nm_xxr , crs = x@helpers@cs_cmt, extent = x@helpers@ex_cmt), "FLT8S", substance)
slot(x@substances, substance)@rl_xxt <- writeLayer(x, "xxt" , rast(li_tpt$nm_xxt , crs = x@helpers@cs_cmt, extent = x@helpers@ex_cmt), "FLT8S", substance)
slot(x@substances, substance)@rl_xxt_inp <- writeLayer(x, "xxt_inp", rast(li_tpt$nm_xxt_inp, crs = x@helpers@cs_cmt, extent = x@helpers@ex_cmt), "FLT8S", substance)
Expand Down
2 changes: 2 additions & 0 deletions R/input.R
Original file line number Diff line number Diff line change
Expand Up @@ -445,6 +445,7 @@ DEMrelatedInput <- function(
z = rl_rds
),
fun = function(x, y, z) {
# nolint start
ifelse(
is.na(y),
ifelse(
Expand All @@ -454,6 +455,7 @@ DEMrelatedInput <- function(
),
x
)
# nolint end
},
cores = is_ths,
filename = "dir_inf_rds.tif",
Expand Down

0 comments on commit c551a39

Please sign in to comment.