include data in vignette

vignettes/introduction.Rmd

@@ -18,12 +18,6 @@ knitr::opts_chunk$set(
 library(jellyfisher)
 ```
 
-```{r echo=F, message=F}
-# Subset the data to keep the compiled vignette a bit smaller
-jellyfisher_example_tables <- jellyfisher_example_tables |>
-  select_patients(c("EOC69", "EOC677", "EOC495", "EOC809"))
-```
-
 **Jellyfisher** is an R package (a [htmlwidget](https://www.htmlwidgets.org/))
 for visualizing tumor evolution and subclonal compositions using Jellyfish plots.
 The package is based on the
@@ -44,6 +38,17 @@ trajectories characterized by distinct pathways stratify patients with ovarian
 high-grade serous carcinoma." _Cancer Cell_ **41**, 1103–1117.e12 (2023). DOI:
 [10.1016/j.ccell.2023.04.017](https://doi.org/10.1016/j.ccell.2023.04.017).
 
+```{r}
+data(jellyfisher_example_tables)
+```
+
+```{r echo=F, message=F}
+# Subset the data to keep the compiled vignette a bit smaller
+jellyfisher_example_tables <- jellyfisher_example_tables |>
+  select_patients(c("EOC69", "EOC677", "EOC495", "EOC809"))
+```
+
+
 ### Samples
             
 - `sample` (string): specifies the unique identifier for each sample.