R блестящая остановка прокрутки вверх страницы после изменения ввода - PullRequest
Новая
       28

R блестящая остановка прокрутки вверх страницы после изменения ввода

0 голосов
/ 07 мая 2018

Я создал таблицу данных в блестящем приложении R вверху страницы с элементами управления вводом внизу, которые определяют данные, отображаемые в этой таблице.

Таблица длинная, и поэтому пользователь должен прокрутить вниз, чтобы получить доступ к элементам управления вводом. Но после изменения любого элемента управления вводом приложение автоматически прокручивает страницу вверх.

Как я могу предотвратить автоматическую прокрутку вверх страницы при смене входов? (Обратите внимание, что я не хочу откладывать обновление таблицы до тех пор, пока не будут изменены все входные данные, например, с помощью кнопки «Обновить таблицу», которую нужно нажать, и в этом случае автоматическая прокрутка будет в порядке.)

Обратите внимание, что это не сработало для меня: R блестящий: как остановить нажатие метки sliderInput от прокрутки вверх страницы?

Пример кода: 

library(shiny)
library(DT)

# Define UI
ui <- shinyUI(
  fluidRow(
    column(3,
           DT::dataTableOutput("exampleOutput"),
           numericInput("var", h5("Row value"), value = 100)
    )
  )
)

server <- function(input, output) {
  exampleTable <- reactive({
    transactionCostsDataFrame <- data.frame(
      "Transaction" = rep(input$var, 100))
  })

  output$exampleOutput <- DT::renderDataTable(
    DT::datatable(exampleTable(), escape = FALSE, 
                  options = list(dom = "t", ordering = FALSE, 
                                 bFilter = 0, pageLength = 100))
    )
}

# Run the app
shinyApp(ui = ui, server = server)
...