Shiny App не увеличивает переменные, как я ожидал

Question

Я не могу понять, почему переменная current_row сбрасывается до ее начального значения между нажатиями предыдущей и следующей кнопок.

TY

current_row = 0

shinyApp(
  ui = fluidPage(
    actionButton("next_button", "next"),
    actionButton("previous_button", "previous")
  ),
  server = function(input, output, session) {

    observeEvent(input$next_button, 
                 {
                   current_row = current_row + 1 
                   print (current_row)
                 }) 

    observeEvent(input$previous_button, 
                 {
                   current_row = current_row - 1 
                   print (current_row)
                 }) 
  }
)

Answer 1

current_row = current_row + 1 в observeEvent фактически не обновляет значение current_row в глобальной среде.Вам нужно <<-.Однако использование этого в shiny крайне не рекомендуется.Попробуйте задать отдельный вопрос о том, что именно вам нужно, чтобы люди могли указать вам правильное направление.

current_row = 0

shinyApp(
  ui = fluidPage(
    actionButton("next_button", "next"),
    actionButton("previous_button", "previous")
  ),
  server = function(input, output, session) {

    observeEvent(input$next_button, 
                 {
                   current_row <<- current_row + 1 
                   print (current_row)
                 }) 

    observeEvent(input$previous_button, 
                 {
                   current_row <<- current_row - 1 
                   print (current_row)
                 }) 
  }
)