如何使用highcharter包将多个序列提供给R shiny中的折线图，而不对序列进行硬编码？

install.packages("highcharter")

library(shiny)
library(highcharter)

ui <- fluidPage(
  plotOutput("lineChart")
)

server <- function(input, output) {
  output$lineChart <- renderHighchart({
    data <- data.frame(
      x = c(1, 2, 3, 4, 5),
      y1 = c(10, 20, 30, 40, 50),
      y2 = c(15, 25, 35, 45, 55),
      y3 = c(5, 15, 25, 35, 45)
    )
    
    highchart() %>%
      hc_xAxis(categories = data$x) %>%
      hc_add_series(data = data, hcaes(x, y1), type = "line") %>%
      hc_add_series(data = data, hcaes(x, y2), type = "line") %>%
      hc_add_series(data = data, hcaes(x, y3), type = "line")
  })
}

shinyApp(ui, server)