removed readr dependency

tomsing1 · Nov 18, 2023 · 3c6354e · 3c6354e
1 parent ad36d62
commit 3c6354e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/docs/posts/quarto-webr/quarto_webr_example.html b/docs/posts/quarto-webr/quarto_webr_example.html
@@ -383,7 +383,6 @@ <h1 class="title">Embedding R into Quarto documents with quarto-webr</h1>
 
 // Run R code without focusing on storing data.
 await globalThis.webR.evalRVoid(`
-webr::install("readr")
 kUrlRoot <- paste0(
   "https://tomsing1.github.io/blog/posts/quarto-webr"
 )
@@ -393,8 +392,9 @@ <h1 class="title">Embedding R into Quarto documents with quarto-webr</h1>
   "Day3" = "day3_results"
   )
 results <- lapply(kResults, \\(result) {
-  url <- paste(kUrlRoot, paste0(result, ".csv.gz"), sep = "/")
-  readr::read_csv(url)[, c("gene_name", "adj.P.Val", "logFC")]
+  url <- paste(kUrlRoot, paste0(result, ".csv"), sep = "/")
+  download.file(url, basename(url))
+  read.csv(basename(url))[, c("gene_name", "adj.P.Val", "logFC")]
 })
 names(results) <- names(kResults)