Updated image paths

royfrancis · Sep 30, 2023 · 437247a · 437247a
1 parent 598a45c
commit 437247a
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/documents/revealjs/assets/setosa.jpg b/documents/revealjs/assets/setosa.jpg
diff --git a/documents/revealjs/assets/versicolor.jpg b/documents/revealjs/assets/versicolor.jpg
diff --git a/documents/revealjs/assets/virginica.jpg b/documents/revealjs/assets/virginica.jpg
diff --git a/documents/revealjs/index.qmd b/documents/revealjs/index.qmd
@@ -60,12 +60,12 @@ ggplot(iris_filtered,aes(Sepal.Length,Petal.Length,col=Species))+
 #| fig-cap: !expr paste0("Photograph of ",params$name," species.")
 
 imgs <- c(
-    "setosa" = "https://upload.wikimedia.org/wikipedia/commons/thumb/a/a7/Irissetosa1.jpg/220px-Irissetosa1.jpg",
-    "versicolor" = "https://upload.wikimedia.org/wikipedia/commons/thumb/2/27/Blue_Flag%2C_Ottawa.jpg/220px-Blue_Flag%2C_Ottawa.jpg",
-    "virginica" = "https://upload.wikimedia.org/wikipedia/commons/thumb/f/f8/Iris_virginica_2.jpg/220px-Iris_virginica_2.jpg"
+    "setosa" = "assets/setosa.jpg",
+    "versicolor" = "assets/versicolor.jpg",
+    "virginica" = "assets/virginica.jpg"
 )
 
-knitr::include_graphics(imgs[match("versicolor", names(imgs))])
+knitr::include_graphics(imgs[match(params$name, names(imgs))])
 ```
 
 :::

diff --git a/documents/webr/index.qmd b/documents/webr/index.qmd
@@ -11,9 +11,11 @@ format:
     author: "Roy Francis"
     date:  last-modified
     date-format: "DD-MMM-YYYY"
+webr:
+   channel-type: "post-message"
 engine: knitr
 filters:
-- webr
+  - webr
 ---
 
 ## Demo
@@ -39,9 +41,7 @@ summary(fit)
 plot(pressure)
 ```
 
-
 ### Packages
-
 #### Available Packages
 
 You can view what packages are available for webR by either executing the following R code (either with WebR or just R):