R/functions.R

In jeromyanglim/personalityfacets: Package for estimating population r-square change

specify_decimal <- function(x, k) format(round(x, k), nsmall=k)


round_df <- function(x, digits) {
    # round all numeric variables
    # x: data frame 
    # digits: number of digits to round
    numeric_columns <- sapply(x, mode) == 'numeric'
    x[numeric_columns] <-  round(x[numeric_columns], digits)
    x
}