R/get_var_prec.R

Defines functions get_var_prec

get_var_prec <- function(varprec, var) {
  if (!is.null(varprec) && varprec %in% PRECISIONS_VAR) {
    var_prec <- varprec
  }  else{
    var_prec <- "float"
  }
  return(var_prec)
}

Try the cmsafops package in your browser

Any scripts or data that you put into this service are public.

cmsafops documentation built on Sept. 18, 2023, 5:16 p.m.