tests/testthat/scripts/rscript-test.R

options(tidyverse.quiet = TRUE)

library(dplyr, warn.conflicts = FALSE)

out <- iris %>%
  tibble::as_tibble() %>%
  mutate(new_col = sqrt(Sepal.Width^2 + Sepal.Length^2)) %>%
  head(10)

a_litte_note <- "You're doing okay"

out

message("Message: Hello, there")
print("Printed: Why, hello there")

Try the mark package in your browser

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

mark documentation built on May 29, 2024, 5:13 a.m.