# NOT RUN {
# Create test data
l <- "Label"
n <- 47
cat(paste0(l, lowcase_parens(n)))
# Label
# (n=47)
cat(paste0(l, upcase_parens(n)))
# Label
# (N=47)
cat(paste0(l, lowcase_n(n)))
# Label
# n=47
cat(paste0(l, upcase_n(n)))
# Label
# N=47
customN <- function(n) {
return(paste0(": N=", n))
}
cat(paste0(l, customN(n)))
# Label: N=47
# }
Run the code above in your browser using DataLab