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")
jmbarbone/jordan documentation built on April 1, 2024, 7:46 p.m.