inst/extdata/script1.R

add_one <- function(x) {
  return(x + 1)
}

capitalize <- function(txt) {
  toupper(substr(txt, 1, 1))
}

say_hello <- function(name) {
  paste('Hello', name)
}

Try the seekr package in your browser

Any scripts or data that you put into this service are public.

seekr documentation built on June 8, 2025, 11:13 a.m.