Question

我对交互式切换闪亮应用的数据选择有疑问。我想从<span class="glyphicon glyphicon-menu-hamburger" aria-hidden="true"></span>中选择数据，但错误说明：没有活动的反应上下文时不允许操作。（你试图做一些只能在反应式表达式或观察者内部完成的事情。）

有没有办法让数据与输入交互？

谢谢！

这是我的应用：

app.r：

selectInput

Answer 1

我想你要做的第一件事就是将vals更改为vals <- reactive({...})，然后在引用它时，添加括号，例如vals()$keeprows。这应该可以解决反应问题。

Answer 2

最后，我通过保留reactiveValues()的交互部分，从Vals的对象中删除交互式部分来解决此问题。

请注意，从reactiveValues对象获取的值是被动的，但是reactiveValues对象本身不是。

这是我的应用：

app.r：

ui <- fluidPage(
fluidRow(
column(width = 6,
       selectInput("vsselection", "Choose a vs:", 
                   choices =   names(table(data.frame(mtcars$vs))),selected=0),
       plotOutput("plot1", height = 350,
                  click = "plot1_click",
                  brush = brushOpts(
                    id = "plot1_brush"
                  )
       ),
       actionButton("exclude_toggle", "Toggle points"),
       actionButton("exclude_reset", "Reset")
  )
)
)

server <- function(input, output) {
# For storing which rows have been excluded
vals <- reactiveValues(
keeprows = rep(TRUE, nrow(mtcars))
)

output$plot1 <- renderPlot({
# Plot the kept and excluded points as two separate data sets
keep    <- mtcars[which(mtcars$vs==input$vsselection),][ vals$keeprows, ,   drop = FALSE]
exclude <- mtcars[which(mtcars$vs==input$vsselection),][!vals$keeprows, , drop = FALSE]

 ggplot(keep, aes(wt, mpg)) + geom_point(color = "blue") +
  geom_smooth(method = lm, fullrange = TRUE, color = "black") +
  geom_point(data = exclude, shape = 21, fill = NA, color = "black", alpha =  0.25) 
})

# Toggle points that are clicked
observeEvent(input$plot1_click, {
res <- nearPoints(mtcars[which(mtcars$vs==input$vsselection),],  input$plot1_click, allRows = TRUE)

vals$keeprows <- xor(vals$keeprows, res$selected_)
})

# Toggle points that are brushed, when button is clicked
observeEvent(input$exclude_toggle, {
res <- brushedPoints(mtcars[which(mtcars$vs==input$vsselection),],  input$plot1_brush, allRows = TRUE)

vals$keeprows <- xor(vals$keeprows, res$selected_)
})

# Reset all points
observeEvent(input$exclude_reset, {
vals$keeprows <- rep(TRUE,   nrow(mtcars[which(mtcars$vs==input$vsselection),]))
})

}

Shiny R：具有`input`数据选择的交互式切换输出

2 个答案: