运行Shiny计算器应用报错，请求代码问题排查帮助

你的Shiny应用报错核心问题出在UI代码的语法结构上，具体如下：

1. UI代码的关键错误 #

你写的 shinyUI(fluidPage) 是错误写法——fluidPage 是需要接收UI组件作为参数的函数，必须把 titlePanel、sidebarLayout 等所有内容包裹在 fluidPage() 的括号内，否则Shiny无法识别完整的UI结构。

2. 修复后的完整代码 #

Server 代码（仅微调规范，无功能问题） #

library(shiny)

shinyServer(function(input, output) {
  
  output$oput <- renderText({
    
    switch(input$ops,
           "Addition" = input$first + input$second,
           "Substraction" = input$first - input$second,
           "Multiplication" = input$first * input$second,
           "Division" = input$first / input$second
           )
    
  })
  
})

UI 代码（修复核心结构问题） #

library(shiny)

shinyUI(fluidPage(
  titlePanel("Simple Calculator"),
  sidebarLayout(
    sidebarPanel(
      numericInput("first", "Select a Number", 10),
      numericInput("second", "Select Another Number", 10),
      selectInput("ops", "Select Operation",
                  choices = c("Addition","Substraction","Multiplication","Division"))
    ),
    mainPanel(
      h2("The final result is:"),
      textOutput("oput")
    )
  )
))

额外说明 #

• Server部分的switch函数最后一个选项后的逗号可以移除，虽然不会触发报错，但能让代码更规范。
• 所有UI组件必须嵌套在fluidPage()内部，这是Shiny UI定义的基本结构要求。

内容的提问来源于stack exchange，提问作者HAMZA