meta_cols-function.md

meta_cols() function

This R function adds the current datetime (access_datetime), user (user), and system information (sysinfo) to a data.frame or tibble.

meta_cols <- function(data) {
    library(tibble)
    library(lubridate)
    data_raw <- data
    data_datetime <- tibble::add_column(.data = data_raw,
                     access_datetime = lubridate::as_datetime(base::Sys.time()),
                     .before = 1)
    getenv <- Sys.getenv()
    user <- getenv["USER"]
    data_user <- tibble::add_column(.data = data_datetime,
                 user = base::as.character(user),
                 .before = 1)
    sysinfo <- base::Sys.info()
    sysinfo <- base::paste0(sysinfo[c("sysname", "release")], collapse = ", ")
    data_sysinfo <- tibble::add_column(.data = data_user,
                    sysinfo = base::as.character(sysinfo),
                    .before = 1)
    return(data_sysinfo)
}