shiny:根据输入值将时间序列添加/删除到dygraphs

install.packages("shiny")
install.packages("dygraphs")

library(shiny)
library(dygraphs)

ui <- fluidPage(
  titlePanel("添加/删除时间序列数据"),
  sidebarLayout(
    sidebarPanel(
      textInput("input_value", "输入值："),
      actionButton("add_button", "添加数据"),
      actionButton("remove_button", "删除数据")
    ),
    mainPanel(
      dygraphOutput("dygraph_plot")
    )
  )
)

server <- function(input, output) {
  data <- reactiveValues(series = NULL)
  
  observeEvent(input$add_button, {
    value <- as.numeric(input$input_value)
    if (!is.na(value)) {
      data$series <- c(data$series, value)
    }
  })
  
  observeEvent(input$remove_button, {
    if (length(data$series) > 0) {
      data$series <- data$series[-length(data$series)]
    }
  })
  
  output$dygraph_plot <- renderDygraph({
    dygraph(data.frame(Time = seq_along(data$series), Value = data$series),
            main = "时间序列数据",
            xlab = "时间",
            ylab = "数值")
  })
}

shinyApp(ui, server)