Question

我在服务器应用程序的R Shiny App中有一个renderDataTable对象，它显示了用户在Scatterplot中刷过的那些游戏的所有标题，并将它们显示在带有更多统计数据的数据表中。

  output$dtable <- renderDataTable({ 
    brushedPoints(daten(), input$brush_plot) %>% na.omit()
    %>% select(GAME.NAME,input$x, input$y)
    })
  }

现在，如果用户不刷图，我想默认显示所有游戏。我想我必须在renderDataTable函数的开头使用if-else分支，但我不知道要传递哪些参数。我已经尝试if (!input$brush_plot)和if(!brushedPoints()) ..然后(daten()%>% select..)，但这不起作用.. 我怎样才能做到这一点？

Answer 1

我想你想检查一下：

if (length(input$brush_plot) > 0) {
    daten()
} else {
    brushedPoints(daten(), input$brush_plot) %>%
    na.omit() %>%
    select(GAME.NAME,input$x, input$y)
}

R Shiny dataTableOutput all if if not brushed

1 个答案: