R/update_history.R

In frederic-santos/rdss: An R-Shiny Application for a Semi-Automatized Approach of Sex Estimation in Biological Anthropology

update_history <-
function(tab, criterion, value) {
    if (is.null(tab)) {
        tab <- data.frame(Criterion = criterion,
                          Value = value)
    } else {
        tab <- rbind(tab, c(criterion, value))
    }
    return(tab)
}