Pairing {quarto-shinylive} and {quarto-webr}

stuff

#| '!! shinylive warning !!': |
#|   shinylive does not work in self-contained HTML documents.
#|   Please set `embed-resources: false` in your metadata.
#| standalone: true
library(shiny)
library(naivebayes)
library(targets)
tar_load("prediction_bayes_model")

{quarto-shinylive}

#| '!! shinylive warning !!': |
#|   shinylive does not work in self-contained HTML documents.
#|   Please set `embed-resources: false` in your metadata.
#| standalone: true
library(shiny)

ui <- fluidPage(
   titlePanel("Hello Shiny!")
)

server <- function(input, output, session) {
  # code
}

shinyApp(ui, server)

{quarto-webr}

Interactive

Non-interactive

```xffanfja #| context: output cat(“And, this is a non-interactive cell”, fill = TRUE)