From b737ca35ff64145348345e5c9e62d019d5e3411a Mon Sep 17 00:00:00 2001
From: Laurent Gatto <laurent.gatto@uclouvain.be>
Date: Tue, 26 Sep 2023 06:01:53 +0200
Subject: [PATCH] show rna_with_missing_values creation

---
 episodes/30-dplyr.Rmd | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/episodes/30-dplyr.Rmd b/episodes/30-dplyr.Rmd
index 172084512..fa406887e 100644
--- a/episodes/30-dplyr.Rmd
+++ b/episodes/30-dplyr.Rmd
@@ -609,16 +609,13 @@ Let's imagine that for some reason, we had some missing expression values for so
 genes in certain samples. In the following fictive example, the gene Cyp2d22 has only
 one expression value, in GSM2545338 sample.
 
-```{r, purl=TRUE, echo=FALSE}
+```{r, purl=TRUE}
 rna_with_missing_values <- rna %>%
   select(gene, sample, expression) %>%
   filter(gene %in% c("Asl", "Apod", "Cyp2d22")) %>%
   filter(sample %in% c("GSM2545336", "GSM2545337", "GSM2545338")) %>%
   arrange(sample) %>%
   filter(!(gene == "Cyp2d22" & sample != "GSM2545338"))
-```
-
-```{r, purl=TRUE}
 rna_with_missing_values
 ```