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

}

​

round_df(data, 3)

​