tests/testthat/parse_comments/rplumber-out.R

# myfile.R

#* @get /mean
normalMean <- function(samples = 10) {
  data <- rnorm(samples)
  mean(data)
}

#* @post /sum
addTwo <- function(a, b) {
  as.numeric(a) + as.numeric(b)
}
r-lib/styler documentation built on April 10, 2024, 4 a.m.