inst/extdata/sample.R

#Create some well named functions
calc_third_angle_of_isoceles_triangle_in_radians <- function(paired_angle)
{
  pi - 2 * paired_angle
}
append_csv_extension_to_filename <- function(file) paste0(file, ".CSV")


#and some badly named functions
f <- function() 1
g <- function(x, y, z) x + y + z

#and some other variables that shouldn't appear in output
a <- 1
b <- TRUE
ex <- expression(h <- function() 2)

Try the sig package in your browser

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

sig documentation built on April 21, 2022, 5:07 p.m.