Question

所以我遇到的问题如下：我正在尝试创建一个闪亮的仪表板，用户可以输入保存到全局变量的数据（以后登录时可以访问），也可以在同一个工作中立即使用会话。

我已经汇总了一个我想要实现的简单示例，请运行被阻止的代码的第一部分来设置我们想要保存数据的全局变量。然后运行代码的第二部分。

我能够将数据保存到全局变量中，该变量可以在以后的会话中在仪表板中访问，但在同一会话中不可用。

仪表板的工作方式是用户输入其名称，将其保存到全局变量中，然后变量中的所有内容都可供列表中的选择。

对此的任何帮助将不胜感激。

library(shiny)

#RUN THIS CODE FIRST
#setwd(choose.dir())
#Namelist <- NULL
#Namelist <- as.list(Namelist)
#save(Namelist,file = "Namelist.rdata")

#RUN THIS CODE SECOND
load("Namelist.rdata")

values <- reactiveValues()
values$Namelist <- Namelist

ui <- fluidPage(
  fluidRow(
    textInput("text","Enter Name"),
    actionButton("save","Save Text"),
    selectInput("name","Select Name",choices=names(Namelist), multiple = FALSE, selected = names(Namelist))
  )
)

server <- function(input,output){
  observeEvent(input$save,{
    Namelist <- values$Namelist
    Name <- input$text
    Namelist[[length(Namelist)+1]] <- Name
    names(Namelist)[length(Namelist)] <- as.character(Name)
    save(Namelist, file = "Namelist.rdata")
  })
}

shinyApp(ui = ui, server = server)

保存Shiny中的值更新并可在同一会话中选择

0 个答案: