自动滚动到数据的右侧

Question

有什么方法可以在R Shiny中以将滚动条设置为从数据呈现的滚动条时自动在渲染时（即到最后一列）将滚动条设置为右侧，而不是默认设置的左侧？

基本示例：

library(shiny)
runApp(shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("results", width = 300)
  ),
  server = function(input, output, session) {
    output$results <- DT::renderDataTable(
      mtcars,
      options = list(scrollX = TRUE, bPaginate = F)
    )
  }
))

Answer 1

library(shiny)
runApp(shinyApp(
  ui = fluidPage(
    tags$div(id = "parent",
      DT::dataTableOutput("results", width = 300)
    ),
    tags$style("
               #parent {direction: rtl; max-height: 80vh; overflow: auto; margin: 0 auto} 
               #results {direction: ltr; float: left}")
  ),
  server = function(input, output, session) {
    output$results <- DT::renderDataTable(
      mtcars,
      options = list(scrollX = TRUE, bPaginate = F)
    )
  }
))

---

在这里编辑

是您想要的：

library(shiny)
library(DT)

callback <- "
$('div.dataTables_scrollBody').animate({scrollLeft: '+=500'}, 1000);
"

runApp(shinyApp(
  ui = fluidPage(
    DTOutput("results", width = 300)
  ),
  server = function(input, output, session) {
    output$results <- renderDT(
      datatable(
        mtcars, 
        callback = JS(callback),
        options = list(scrollX = TRUE)
      )
    )
  }
))

1000是1000ms，这是动画的持续时间。我不明白为什么 += 300还不够。

Answer 2

在UI中添加此行：tags $ style（'＃result {Direction {rtl;}'）

library(shiny)
runApp(shinyApp(
    ui = fluidPage(
        DT::dataTableOutput("results", width = 300),
        tags$style('#results {direction: rtl;}')
    ),
    server = function(input, output, session) {
        output$results <- DT::renderDataTable(
            mtcars,
            options = list(scrollX = TRUE, bPaginate = F)
        )
    }
))