R-Shiny计算器应用程序的多个“if”条件

使用“switch”语句来替换多个“if”条件，带有包含每个操作的选项并在单个代码块中完成所有计算。

以下是一个示例代码，其中使用了switch语句，并将其应用于两个不同的操作（加法和乘法）：

library(shiny)

ui <- fluidPage(

  titlePanel("Calculator App"),

  sidebarLayout(
    sidebarPanel(
      numericInput('num1', 'First number', 0),
      numericInput('num2', 'Second number', 0),
      radioButtons('operator', 'Operator', 
                   choices = list('Addition' = 'addition',
                                  'Multiplication' = 'multiplication'))
    ),

    mainPanel(
      textOutput('result')
    )
  )
)

server <- function(input, output) {

  output$result <- renderText({

    switch(input$operator,
           addition = {
             result <- input$num1 + input$num2
             paste("The sum of", input$num1, "and", input$num2, "is", result)
           },
           multiplication = {
             result <- input$num1 * input$num2
             paste("The product of", input$num1, "and", input$num2, "is", result)
           })
  })
}

shinyApp(ui = ui, server = server)

在这个例子中，我们使用了一个单独的switch语句块，其中包括所有的操作选项。基于用户在应用上的选择，它将在特定情况下执行相应的计算，并在文本输出中显示结果。

使用switch语句可以更容易地维护和管理代码，特别是当需要实现许多操作时。同时，它还有助于提高代码的可读性和更好的错误处理。