I have an app I've been running on shinyapp.io for over a year without issue. It was working on and prior to 6/10/24, but has been failing since 6/11. The logs give the following warning:
Warning: Error in find quarto: Quarto command-line tools path not found! Please make sure you have installed and added Quarto to your PATH or set the QUARTO_PATH environment variable.
It almost seems as though the Quarto has been installed from shinyapps.io? The app still runs locally without issue.
My app code:
library(shiny)
library(shinybusy)
library(showtext)
library(gt)
library(lubridate)
library(qbr)
library(tidyverse)
library(quarto)
library(xfun)
ui <- fluidPage(
titlePanel("Mothcage Checklist Generator"),
sidebarLayout(
sidebarPanel(width = 3,
selectInput(inputId = "user.span", label = "Report type:", choices = c("One Day", "Weekend")),
br(),
downloadButton(outputId = "report", label = "Generate Report:"),
br(),
add_busy_spinner(spin = "fading-circle")
),
mainPanel(
)
)
)
server <- function(input, output) {
dynamic.filename <- paste0("Cages_", format(Sys.Date(), "%y%m%d"), format(Sys.time(), "%H%M%S"), ".html")
qmd.to.print <- reactive({
if(input$user.span == "One Day") {
return("checklist.qmd")
} else {
return("checklisttwoday.qmd")
}
})
output$report <- downloadHandler(
filename = dynamic.filename,
content = function(file) {
dir.create(temp_dir <- tempfile("dir-shinyapps-"))
on.exit(unlink(temp_dir, recursive = TRUE), add = TRUE)
file.copy(qmd.to.print(), temp_dir, overwrite = TRUE)
file.copy("markdown-style.css", temp_dir, overwrite = TRUE)
xfun::in_dir(temp_dir, {
quarto::quarto_render(
qmd.to.print(),
output_format = "html",
output_file = "rendered_report.html"
)
file.copy("rendered_report.html", file)
})
}
)
}
# Run the application
shinyApp(ui = ui, server = server)