r - Quiz questions in shiny

Question

I am trying to embed quiz questions from learnr package in shiny app. Since v0.10.0 leanr quiz questions are mini shiny applications, i thought it would be easy to add it in shiny. Unfortunately it doesn't work (dont load quiz).

library(shiny)
library(learnr)

app <- shinyApp(
  
ui <- tagList(
    fluidPage(theme = shinytheme("cosmo")),
    navbarPage(
      "appTitle",
      tabPanel("Tutorial", 
               quiz(
                 question("Quiz question",
                          answer("1"),
                          answer("2"),
                          answer("3", correct = TRUE),
                          answer("4"),
                          allow_retry = TRUE
                 )
               )
      )
      )),
  
server <- function(input, output, session) {}

)

runApp(app)

question from:https://stackoverflow.com/questions/65831031/quiz-questions-in-shiny

Answer 1

Waitting for answers