R/utils.R

In KWB-R/kwb.hydrus1d: R Interface for the Last Official Release of Hydrus1D (V4.17.0140) for Windows

# stop_formatted ---------------------------------------------------------------
stop_formatted <- function(x, ..., call. = FALSE)
{
  stop(sprintf(x, ...), call. = call.)
}


to_r_truefalse <- function(txt) {

  txt <- stringr::str_replace_all(txt, pattern = "^t$", replacement = "TRUE")
  txt <- stringr::str_replace_all(txt, pattern = "^f$", replacement = "FALSE")
  as.logical(txt)
}

to_fortran_truefalse <- function(txt) {

  txt <- stringr::str_replace_all(txt, pattern = "^TRUE$", replacement = "t")
  txt <- stringr::str_replace_all(txt, pattern = "^FALSE$", replacement = "f")
  txt
}