Shiny 多动作按钮在R模式下不工作

我是新手，需要你的帮助。我想使用两个操作按钮（Yes和No）来获取用户对单个问题的反馈（这是讽刺吗？），并将响应发送回server.R。但是，两个操作按钮都不会向服务器发送任何响应。我只想让server.R知道用户选择了“是”还是“否”。我不明白背后的原因。下面是我的ui.R和server.R代码，提前感谢您的帮助

用户界面

服务器.R

library(shiny)

shinyServer(function(input, output) {

output$text_output <- renderText({

 if(input$text %in% "sar"){
  "Yes, it is sarcastic"
}
else{
  "No, it is not sarcastic"
}

})

output$issarcasm <- renderText({
input$yessarcasm
input$nosarcasm
  if(input$yessarcasm != 0) {
    "User Feedback: Correct Prediction"
    }
  else if (input$nosarcasm != 0) {
    "User Feedback: Incorrect Prediction"
    }
})    
})

库（闪亮）
shinyServer（功能（输入、输出）{
输出$text\u输出问题在于
submitButton

包含“提交”按钮的表单不会自动更新其
输入更改时输出，而不是等到用户
单击提交按钮

因此，当您有一个
submitButton
时，除非您随后按下submit按钮，否则其他输入将不再更新。解决方法是将其替换为actionButton，并在服务器代码中使用
observeEvent

在ui.R中

actionButton("action", "Check for Sarcasm"),

在server.R中

observeEvent(input$action, {
output$text_output <- renderText({

    if(input$text %in% "sar"){
        "Yes, it is sarcastic"
    }
    else{
        "No, it is not sarcastic"
    }

})
})

observeEvent（输入$action{
输出$text\u输出您的建议有效。我不知道“提交”按钮是“两个操作”按钮未响应的原因。该表单现在可以正常工作。非常感谢您的帮助。
observeEvent(input$action, {
output$text_output <- renderText({

    if(input$text %in% "sar"){
        "Yes, it is sarcastic"
    }
    else{
        "No, it is not sarcastic"
    }

})
})