R/v_fmt_to_type.R

In DSSAT: A Comprehensive R Interface for the DSSAT Cropping Systems Model

v_fmt_to_type <- function(v_fmt, vnames = NULL){
  if(is.null(vnames)) vnames <- names(v_fmt)
  v_fmt[vnames] |>
    extr_substr("[a-z]") |>
    sapply(\(.x) switch(.x,
                        "f" = "numeric",
                        "s" = "character"))
}