Reports often turn computed values into small tables with stable labels and rounded display values.

Program

Play the script to change the number of shown digits and watch the table labels update.

summary_table.R
metric <- c("accuracy", "recall", "precision")
value <- c(0.9234, 0.8751, 0.9012)
digits <- 
shown <- round(value, digits)
rows <- paste(metric, shown, sep = "=")
label <- paste(rows, collapse = ";")
cat(label, "\n", sep = "")
metric <- c("accuracy", "recall", "precision")
value <- c(0.9234, 0.8751, 0.9012)
digits <- 
shown <- round(value, digits)
rows <- paste(metric, shown, sep = "=")
label <- paste(rows, collapse = ";")
cat(label, "\n", sep = "")
metric <- c("accuracy", "recall", "precision")
value <- c(0.9234, 0.8751, 0.9012)
digits <- 
shown <- round(value, digits)
rows <- paste(metric, shown, sep = "=")
label <- paste(rows, collapse = ";")
cat(label, "\n", sep = "")
round `round(value, digits)` prepares numeric values for display.
row label `paste(metric, shown, sep = "=")` builds compact table rows.
collapse `paste(rows, collapse = ";")` turns rows into a report-ready line.