访问从反应函数创建的数据以在 Shiny 中定义反应值

Question

我正在探索 shiny 中交互式 ggplot2 的可能性。受到 this 的启发，我创建了一个闪亮的应用程序，它从数据集中排除点并绘制排除点具有不同颜色的数据。

app.R

library(shiny)
library(ggplot2)
server<-function(input, output) {
  data <- reactive({
    set.seed(10)
    df=data.frame(x=rnorm(100),y=rnorm(100))
    df
  })

  vals<-reactiveValues(keeprows=rep(TRUE, 100))

  output$plot1 <- renderPlot({
    df=data()
    keep=df[vals$keeprows, ,drop=FALSE]
    exclude=df[!vals$keeprows, ,drop=FALSE]
    plot=ggplot(data=keep,aes(x,y))+geom_point()+theme_bw()+
      geom_point(data=exclude,fill=NA,col="black",alpha=0.75,shape=21)
    plot
  })

  observeEvent(input$plot1_click,{
    df=data()
    res <- nearPoints(df, input$plot1_click, allRows = TRUE,threshold=5)
    vals$keeprows <- xor(vals$keeprows, res$selected_)

  })

}

ui <- fluidPage(

  titlePanel("Reactive test"),


  mainPanel(
    plotOutput("plot1",click="plot1_click")
  )
)

shinyApp(ui = ui, server = server)

这非常有效，但现在我希望能够定义 vals：

vals<-reactiveValues(keeprows=rep(TRUE,nrow(CustomDataInput))

在我的示例中，我尝试从 data():

中创建的数据访问行数

vals<-reactiveValues(keeprows=rep(TRUE,nrow(data()))

这给了我一个错误，因为我试图在非反应性环境中访问反应性变量。有没有办法访问在反应函数中创建的数据来定义反应值？

感谢您的宝贵时间！

Answer 1

这个错误基本上解决了问题。正确的做法如下。

library(shiny)
library(ggplot2)
server<-function(input, output) {

  vals <- reactiveValues()
  data <- reactive({
    set.seed(10)
    df=data.frame(x=rnorm(100),y=rnorm(100))
    vals$keeprows = rep(TRUE,nrow(df))
    df
  })

  #vals<-reactiveValues(keeprows=rep(TRUE,100))
  output$plot1 <- renderPlot({
    df=data()
    keep=df[vals$keeprows, ,drop=FALSE]
    exclude=df[!vals$keeprows, ,drop=FALSE]
    plot=ggplot(data=keep,aes(x,y))+geom_point()+theme_bw()+
      geom_point(data=exclude,fill=NA,col="black",alpha=0.75,shape=21)
    plot
  })

  observeEvent(input$plot1_click,{
    df=data()
    res <- nearPoints(df, input$plot1_click, allRows = TRUE,threshold=5)
    vals$keeprows <- xor(vals$keeprows, res$selected_)

  })

}

ui <- fluidPage(

  titlePanel("Reactive test"),


  mainPanel(
    plotOutput("plot1",click="plot1_click")

  )
)

shinyApp(ui = ui, server = server)

事先声明 vals 变量，并在 reactive() 函数中使用它来将变量发送到 vals，如上所示。你应该没事的。

访问从反应函数创建的数据以在 Shiny 中定义反应值

Access data created from reactive function to define reactiveValues in Shiny

r

shiny

app.R