【发布时间】:2019-08-08 19:21:14
【问题描述】:
这是一个一般性问题,将 if 条件放入仪表板的服务器部分的更好方法
第一个选项
server <- function(input, output, session) {
df <-reactive({
if else condition
return(df)
})
output$table <- renderTable(df())
}
runApp(shinyApp(ui, server),launch.browser = TRUE)
第二个选项
server <- function(input, output, session) {
output$table <- renderTable(if else condition) ## put the if condition direct inside render
}
runApp(shinyApp(ui, server),launch.browser = TRUE)
没有代码,这只是为了我的知识
想知道最好的方法。
【问题讨论】: