R/oln_generate.R

In igutierrezm/mypkgr: Diccionario de variables del OLN

oln_generate <- function(df, varlist, src, year, month) {
  # Loop principal
  for (output in varlist) {
    # Chequea que no sea n_
    if (output == "n_") next

    # Identifica la función relevante
    f <-
      sprintf("oln_generate_%s_%s", src, output) %>%
      get(envir = as.environment("package:mypkgr"))

    # Evalúa la función relevante
    if (src == "casen") df <- f(df, year)
    if (src == "ene")   df <- f(df, year, month)
  }
  return(df)
}