基本结构

MCVE 应该在控制台中复制时启动 Shiny 应用程序。一个简单的方法是使用 shinyApp 函数。例如：

为什么我的复选框没有响应？

library(shiny)

ui <- fluidPage(
  checkboxInput('checkbox', 'click me'),
  verbatimTextOutput('text')
)

server <- function(input, output, session){
  output$text <- renderText({
    isolate(input$checkbox)
  })
}

shinyApp(ui, server)

或者，你也可以不为 ui 和 server 分配变量。

library(shiny)

shinyApp(
  fluidPage(
    checkboxInput('checkbox', 'click me'),
    verbatimTextOutput('text')
  ),
  function(input, output, session){
    output$text <- renderText({
      isolate(input$checkbox)
    })
  }
)

shinyApp(ui, server)