我写小示例
library(shiny)
ui <- fluidPage(
fluidRow(
wellPanel(radioButtons(inputId = "radio1", label="Radio 1", choices = c("Yes", "No"), selected = "No"),
actionButton("btnClick1", "Click 1"))
),
fluidRow(
wellPanel(radioButtons(inputId = "radio2", label="Radio 2", choices = c("Yes", "No"), selected = "No"),
actionButton("btnClick2", "Click 2"))
),
fluidRow(
wellPanel(radioButtons(inputId = "radio3", label="Radio 3", choices = c("Yes", "No"), selected = "No"),
actionButton("btnClick3", "Click 3"))
)
)
options(shiny.reactlog=TRUE)
server <-function(input, output, session) {
values <- reactiveValues(radio1 = FALSE, radio2 = FALSE, radio3 = FALSE)
observe(
if (input$btnClick1)
{
if (values$radio1 == TRUE)
{
isolate({cat("input$btnClick1 ", input$btnClick1, "n")});
}
}
);
observeEvent(input$radio1, {
print("observeEvent input$radio1");
if (input$radio1 == "Yes") {
print("Yes");
values$radio1 = TRUE;
} else {
print("No");
values$radio1 = FALSE;
}
});
observe(
if (input$btnClick2)
{
if (values$radio2 == TRUE)
{
isolate({cat("input$btnClick2 ", input$btnClick2, "n")});
}
}
);
observeEvent(input$radio2, {
print("observeEvent input$radio2");
if (input$radio2 == "Yes") {
print("Yes");
values$radio2 = TRUE;
} else {
print("No");
values$radio2 = FALSE;
}
freezeReactiveValue(values, "radio2")
});
observeEvent(input$btnClick3, {
req(values$radio3 == TRUE);
isolate({cat("input$btnClick3 ", input$btnClick3, "n")});
});
observeEvent(input$radio3, {
print("observeEvent input$radio3");
if (input$radio3 == "Yes") {
print("Yes");
values$radio3 = TRUE;
} else {
print("No");
values$radio3 = FALSE;
}
});
}
shinyApp(ui = ui, server = server)
https://gist.github.com/bezany/d9380a1e80b213dcd795f605355912bd在rstudio运行示例中: runGist("d9380a1e80b213dcd795f605355912bd")
如果单击"单击1",然后将"无线电1"设置为"是",请参阅该句柄"输入$ btnClick1"。为什么会发生?当"无线电1"设置为"是"时,"输入$ btnClick1"中的当前单击号码触发了此?有多闪亮记得点击已经处理过?
好吧,我认为您忘了第一个观察者中隔离$ radio1的值。因此,当输入$ radio1变为true时,观察者无效。