rdsav/ident_var:

In StatisticalServicesCentre/ClimateObject: What the package does (short line)

ident_var(data, variables)

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data, variables) 
{
    merged <- variables
    if (!(station_label %in% names(merged))) {
        for (label in c("Station", "station", "Station_id", "station_id", 
            "ID", "ID.")) {
            if (label %in% names(data)) {
                merged[[station_label]] <- label
                break
            }
        }
    }
    if (!(date_label %in% names(merged))) {
        for (label in c("Date", "date", "Date.D")) {
            if (label %in% names(data)) {
                merged[[date_label]] <- label
                break
            }
        }
    }
    if (!(date_asstring_label %in% names(merged))) {
        for (label in c("recorded_at", "Recorded_at")) {
            if (label %in% names(data)) {
                merged[[date_asstring_label]] <- label
                break
            }
        }
    }
    if (!(rain_label %in% names(merged))) {
        for (label in c("Rain", "rain", "Observed", "observed", 
            "Prec", "prec", "Precipitation", "Precipitation (mm)", 
            "precipitation", "precipitation (mm)")) {
            if (label %in% names(data)) {
                merged[[rain_label]] <- label
                break
            }
        }
    }
    if (!(year_label %in% names(merged))) {
        for (label in c("Year", "year", "Year.", "year.", "Year_1.")) {
            if (label %in% names(data)) {
                merged[[year_label]] <- label
                break
            }
        }
    }
    if (!(month_label %in% names(merged))) {
        for (label in c("Month", "month", "Month.", "month.", 
            "Month_1.", "Mon", "mon", "Mon.", "mon.")) {
            if (label %in% names(data)) {
                merged[[month_label]] <- label
                break
            }
        }
    }
    if (!(day_label %in% names(merged))) {
        for (label in c("Day", "day", "Day.", "day.")) {
            if (label %in% names(data)) {
                merged[[day_label]] <- label
                break
            }
        }
    }
    if (!(doy_label %in% names(merged))) {
        for (label in c("DOY", "doy", "DOY.", "doy.")) {
            if (label %in% names(data)) {
                merged[[doy_label]] <- label
                break
            }
        }
    }
    if (!(time_label %in% names(merged))) {
        for (label in c("Time", "time")) {
            if (label %in% names(data)) {
                merged[[time_label]] <- label
                break
            }
        }
    }
    if (!(temp_min_label %in% names(merged))) {
        for (label in c("Tmin", "tmin")) {
            if (label %in% names(data)) {
                merged[[temp_min_label]] <- label
                break
            }
        }
    }
    if (!(temp_max_label %in% names(merged))) {
        for (label in c("Tmax", "tmax")) {
            if (label %in% names(data)) {
                merged[[temp_max_label]] <- label
                break
            }
        }
    }
    return(merged)
  }