Html 尝试向服务器传递单选按钮值时出现类错误

我已经从目前使用的代码中简化了下面的示例。我试图将用户从一组单选按钮中选择的值传递给执行的总分。我的代码工作正常，但现在我遇到以下错误：

警告：as.character中出错：无法将类型“closure”强制为类型“character”的向量

堆栈跟踪最内层优先： 1:runApp

错误：无法将类型“closure”强制为类型“character”的向量

这听起来像是一个语法问题，但我在试图弄明白这一点时却一无所获

用户界面

---

您的UI中确实存在输入错误，br->br

应该是

  actionButton(inputId = "Submit", label = "Calculate"),
  br(),
  mainPanel(
    h1(textOutput('totals'), align = "center")
  )

---

还有其他问题，比如Button1而不是Button1，但这解决了问题中的特定错误消息。

server <- function(input,output,session){

  button1 <- reactive({ ifelse(input$Button1 == "y", 50, ifelse(input$Button1 == "n", 25, 0)) })
  button2 <- reactive({ ifelse(input$Button2 == "y", 50, ifelse(input$Button2 == "n", 25, 0)) })
  button3 <- reactive({ ifelse(input$Button3 == "y", 50, ifelse(input$Button3 == "n", 25, 0)) })
  button4 <- reactive({ ifelse(input$Button4 == "y", 50, ifelse(input$Button4 == "n", 25, 0)) })

  output$totals <- renderText({

    if (input$Submit == 0)
      return(NULL)
    isolate({

      total <- as.numeric(Button1())+as.numeric(Button2())+as.numeric(Button3())+as.numeric(Button4())

      if (is.na(total)){
        print("Make Selections and Click Submit")
      } else 
        print(total)

    })  
  })
}

library(shiny)
library(rsconnect)

  actionButton(inputId = "Submit", label = "Calculate"),
  (br),
  mainPanel(
    h1(textOutput('totals'), align = "center")
  )

  actionButton(inputId = "Submit", label = "Calculate"),
  br(),
  mainPanel(
    h1(textOutput('totals'), align = "center")
  )