## ----setup, include = FALSE---------------------------------------------------
not_cran <- identical(Sys.getenv("NOT_CRAN"), "true")
online <- !is.null(curl::nslookup("r-project.org", error = FALSE))
eval_param <- not_cran & online

knitr::opts_chunk$set(
  eval = eval_param,
  message = FALSE,
  warning = FALSE,
  collapse = TRUE,
  comment = "#>"
)

library(fitzRoy)
library(dplyr)

## ----plot_score_worm, eval=TRUE, include=TRUE---------------------------------
plot_score_worm('CD_M20240142004') 

## ----plot_score_worm_totals, eval=TRUE, include=TRUE--------------------------
plot_score_worm_totals('CD_M20240142004') 

## ----fetch_score_worm_data, eval=TRUE, include=TRUE---------------------------
fetch_score_worm_data('CD_M20240142004')

## ----fetch_score_worm_data_multi, eval=FALSE, include=TRUE--------------------
# fetch_score_worm_data(c('CD_M20240142101','CD_M20240142102','CD_M20240142103'))