Install quarto in Dev hub(dashboard image)

deployments/dev/images/secondary/install.R

@@ -1,5 +1,15 @@
-#!/usr/bin/env r
+#!/usr/bin/env R
 
+# Function to install Quarto
+install_quarto <- function() {
+  print("Installing Quarto")
+  system("wget https://quarto.org/download/latest/quarto-linux-amd64.deb")
+  system("sudo apt-get install -y ./quarto-linux-amd64.deb")
+  system("rm ./quarto-linux-amd64.deb")
+  print("Quarto installation complete")
+}
+
+# Function to install R packages with specific versions
 class_libs_install_version <- function(class_name, class_libs) {
   print(paste("Installing packages for", class_name))
   for (i in seq(1, length(class_libs), 2)) {
@@ -19,6 +29,9 @@ class_libs_install_version <- function(class_name, class_libs) {
   print(paste("Done installing packages for", class_name))
 }
 
+# Install Quarto
+install_quarto()
+
 # R packages to be installed that aren't from apt
 # Combination of informal requests & rocker image suggestions
 # Some of these were already in datahub image
@@ -29,4 +42,4 @@ cran_packages = c(
   "shiny", "1.7.4"
 )
 
-class_libs_install_version("Base packages", cran_packages)
+class_libs_install_version("Base packages", cran_packages)