[英]Shiny update data from selectInput
我在获取selectizeInput的输出以更新上载的csv数据时遇到问题。 有问题的特定代码块是
observeEvent(input$Go, {
tmp <- values$df_data
output$Grp = renderUI({
lvls <- tmp %>%
pull(Group) %>%
levels
selectizeInput('group', 'Groups', choices = lvls, selected = lvls[1], multiple = FALSE)
})
tmp1 <- tmp %>%
filter(Group == "A") # need to change here by updating the value from input$Grp
values$df_data <- tmp1
})
“组”列使用硬编码值进行过滤。 我的意图是通过获取“ Grp”的值使其动态。 下图显示了问题
完整的代码如下
library(shinydashboard)
library(shiny)
library(dplyr)
library(tidyr)
ui = dashboardPage(
dashboardHeader(),
dashboardSidebar(
width = 200,
sidebarMenu(
menuItem("File Upload", icon = shiny::icon("table")),
fileInput('datafile', 'Choose CSV file',
accept=c('text/csv', 'text/comma-separated-values,text/plain')),
uiOutput('Grp'),
actionButton("Go","Subset Data"))
),
dashboardBody( fluidPage(
titlePanel("Data Table"),
sidebarLayout(
tabPanel("tab",
div( id ="Sidebar",sidebarPanel(
))),
mainPanel(
DT::dataTableOutput("tableOut")
)
)
)
)
)
server = function(input, output, session) {
values <- reactiveValues(df_data = NULL)
observeEvent(input$datafile, {
values$df_data <- read.csv(input$datafile$datapath)
})
observeEvent(input$Go, {
tmp <- values$df_data
output$Grp = renderUI({
lvls <- tmp %>%
pull(Group) %>%
levels
selectizeInput('group', 'Groups', choices = lvls, selected = lvls[1], multiple = FALSE)
})
tmp1 <- tmp %>%
filter(Group == "A") # need to change here by updating the value from input$Grp
values$df_data <- tmp1
})
output$tableOut <- DT::renderDataTable({
DT::datatable(values$df_data)
})
}
shinyApp(ui = ui, server = server)
我正在上传.csv文件。 以下数据与我的数据相似。
set.seed(12345)
data <- data.frame(DATE = rep(seq(as.Date("2014-01-01"), length.out = 200,
by = "week"), each = 4), Group = rep(c("A", "B", "C", "D"), each = 200),
ValueColumn = rnorm(800))
欢迎来到这里的网站。 这也是我最近遇到的一个问题selectizeInput
似乎并不是孤立的,但它与您试图让Shiny应用程序“看到”的任何新数据有关。 这里有一些尝试的方法:
_cache
目录,然后尝试再次加载。 如果没有差异, touch
.csv
文件(如果在Windows上则进行编辑以获取新的时间戳),然后尝试再次加载。 如果没有差异, sudo systemctl restart shiny-server
Server, sudo systemctl restart shiny-server
,其中最后一个参数是sudo systemctl restart shiny-server
的名称(默认为shiny-server
)。 最后一种解决方案对我来说是最可靠的解决方案-它是本文档中的#2( Shiny应用程序未反映更新RData文件中的更改 )-从命令行重新启动Shiny Server。 这可靠且常规地工作。 该解决方案中的其他想法在我的机器上不起作用,因此必须取决于您的服务器或客户端规格。
对我有用的第二件事是使用reactiveTimer
( https://shiny.rstudio.com/reference/shiny/0.14/reactiveTimer.html )。
无论如何,如果您一直用这种方法将头撞在墙上,这是一个棘手的问题,对我们许多人来说都是麻烦的。 祝您选择适合自己情况的最佳解决方案。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.