Blends round() and formatC() for my specific needs.

roundFormatC.R

roundFormatC <- function(x, digits) {
    formatCDigits <- digits
    if(digits <= 0) {
        formatCDigits <- 0
    }
    formatC(round(x, digits), formatCDigits, format = "f")
}