r - 闪亮的测验问题

Question

我正在尝试将学习者包中的测验问题嵌入闪亮的应用程序中。由于v0.10.0 精益测验问题是迷你闪亮的应用程序，我认为将它添加到闪亮的应用程序中很容易。不幸的是，它不起作用（不要加载测验）。

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)