R/none.R

In rdwplus: Inverse Distance Weighted Percent Land Use for Streams

none <- function(x, o, overwrite = FALSE){
  expr_calc <- paste0(o, " = int(if(isnull(", x,"), 1, log(-1)))")
  flags <- "quiet"
  if(overwrite) flags <- c(flags, "overwrite")
  execGRASS(
    "r.mapcalc",
    flags = flags,
    parameters = list(expression = expr_calc)
  )
}