如何在R shiny的sliderInput中添加“下一步”按钮？

sliderInput("slider", "选择一个值：", min = 1, max = 10, value = 5)

actionButton("nextButton", "下一步")

observeEvent(input$nextButton, {
  nextValue <- input$slider
  # 执行下一步的操作
})

library(shiny)

ui <- fluidPage(
  sliderInput("slider", "选择一个值：", min = 1, max = 10, value = 5),
  actionButton("nextButton", "下一步")
)

server <- function(input, output) {
  observeEvent(input$nextButton, {
    nextValue <- input$slider
    # 执行下一步的操作
  })
}

shinyApp(ui, server)