knitr::opts_chunk$set(collapse = TRUE, comment = "#>") library(targets)
```{targets invasiveTimeSeriesData} tar_target(invasiveTimeSeriesData, make_invasive(data_formatted))
```r glue::glue( "**Testing dataset contains { nrow(tar_read(invasiveTimeSeriesData)) } observations from { tar_read(invasiveTimeSeriesData) %>% distinct(id) %>% nrow() } patients**" )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.