【发布时间】:2017-07-21 16:06:37
【问题描述】:
我的 UI 包含一个导航栏页面和 3 个选项卡面板。 第一个 tabPanel 有用于选择文件的小部件。 一旦用户完成选择文件,就会有一个更新按钮 由observeEvent 观看。按下按钮时,网址是 访问并填满了一张桌子。我希望面板自动切换。 所以我使用了 updateNavbarPage,如下面的代码所示。
这会引发找不到“会话”的错误。投掷后 整个环境的这个错误被丢弃了,即使我删除了 调用 updateNavPage 代码拒绝运行,除非我关闭 然后重新开始
library(shiny)
shinyServer(function(input, output,sesson) {
MY_DATA <- NULL
fetch_files <- reactive({
spatial <- input$spatial
location <-input$location
time <-input$time
metric <-input$metric
stat <- input$stat
provider <- input$provider
processing <- input$processing
X <- FILES %>% filter(Spatial %in% spatial & Locale %in% location & Time
%in% time & Processing %in% processing &
Metric %in% metric &
Stat %in% stat & Provider %in% provider)
return(X)
})
display_files <- reactive({
D <- fetch_files() %>% select(-DOI,-AccessDate,-Url,-DataID)
return(D)
})
observeEvent(input$fetchData,{
updateNavbarPage(session,inputId="main",selected="transform")
MY_DATA <<- download_data(fetch_files())
})
output$active_data <-renderDataTable(MY_DATA)
output$data_to_fetch <-renderDataTable(
display_files()
)
})
【问题讨论】:
标签: r shiny shiny-server