问题描述
我在 Shiny 仪表板中有一个值框，它正在使用 ReactivePoll 功能更新自身。该值来自 sql 查询。
我需要在更新时保存每个值（当数据库中有新记录时会发生这种情况），我会将这些值保存在向量中。因此，每当我们在值框中有一个新值时，这个向量的长度就会增加。
最后，我想用这个向量创建一个行字符。
我应该使用哪个 Shiny 函数？
谢谢！
解决方法
当然。我们可以将值存储在 reactiveValues 中的向量中，以便我们可以从任何地方更新和访问它。
添加到向量就像 myvector <- c(myvector,mynewvalue) 一样简单。
下面是一个最小的工作示例。它显示了向向量添加值并在 valueBoxes 和绘图中显示该向量。为简单起见，我们将跳过 reactPoll 部分。
library(shiny)
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(),dashboardSidebar(),dashboardBody(
valueBoxOutput("myvaluebox_latest"),valueBoxOutput("myvaluebox_all"),numericInput("mynumericinput","Enter a Value",min = 1,max = 10,value = 5),actionButton("myactionbutton",label = "Add to Value to Vector"),plotOutput("myplot")
)
)
server <- function(input,output,session) {
#Create a reactive to store our vector
myreactives <- reactiveValues(
myvector = NULL
)
#Runs when the button is pressed
observeEvent(input$myactionbutton,{
#Add the selected value to our vector
myreactives$myvector <- c(myreactives$myvector,input$mynumericinput)
})
#Generate the valuebox for the latest data,runs when the vector changes
output$myvaluebox_latest <- renderValueBox(
valueBox(value = tail(myreactives$myvector,1),subtitle = "Latest Value"),)
#Generate the valuebox for the all the data,runs when the vector changes
output$myvaluebox_all <- renderValueBox(
valueBox(value = paste(myreactives$myvector,collapse = " "),subtitle = "All Values")
)
#Generate the plot
output$myplot <- renderPlot({
#Don't draw the plot when there is no data in the vector yet
req(myreactives$myvector)
plot(myreactives$myvector,type = "l")
})
}
shinyApp(ui,server)