闪亮 - 如何获得最后一个推动的Radiobutton的价值？

Question

我有5个radiobuttons，其中包括“是”和“否”。 我希望只有在RadioButton上选择“否”时，才希望弹出式弹出仪。 我试图用if语句来解决它，但是逻辑不起作用，因为如果“ buttonabluf1”是否，然后将“ buttonabluf2”推到是的，modaldialog弹出了：

    if(isTRUE(input$buttonAbluf1=="No" ||
        input$buttonAbluf2 =="No" ||
        input$buttonAbluf3 =="No" ||
        input$buttonAbluf4 =="No" ||
        input$buttonAbluf5 =="No"))
    {
                         
                         showModal(popup())
                       }
    popup <- function(){
        modalDialog(easyClose = F,
          textAreaInput("com", "Bemerkung:", width = "750px", heigh = "200px"),
          
          size = "l",  
          
        )
        
      }

我如何定义逻辑，那就可以只有选择“否”，无论其他放射线to菜，它都会弹出吗？ 我考虑过要获得最后一个按钮的值。如果此值不是该值，则可以显示Modaldialog。

Answer 1

这就是观察者的目的：

observeEvent(input$buttonAbluf1,{
        if(input$buttonAbluf1=='No'){
           showModal(popup())
        }
    })

由于您所有的按钮都应相同，因此您也可以将它们全部包裹在一个前面：

for(i in c(1:5)){
    local({
        i=i
        observeEvent(input[[paste0('buttonAbluf',i)]],{
            if(input[[paste0('buttonAbluf',i)]]=='No'){
                showModal(popup())
            }
        })
    })
}