Javascript 获取表格的左滚动位置

发布于04月25日

我正在try 让DT表的左滚动位置变得shiny .

这是一个示例应用程序，说明我如何try 捕获它.

library(shiny)
library(DT)

js_save_scroll <- '$(document).on("shiny:connected", function(settings, json) {
  console.log("Test log");
  $("#tbl").on("click", function() {
    console.log("Table clicked");
    var table = $("#tbl");
    var scrollPos = $("#tbl").scrollLeft();
    console.log("Scroll position: " + scrollPos);
  });
});
'

df <- data.frame(matrix(rnorm(1000), nrow = 100, ncol = 50))

shinyApp(
  ui = fluidPage(
    tags$script(js_save_scroll),
    
    DTOutput('tbl')
    ),
  
  server = function(input, output) {
    output$tbl = renderDT(df)
  }
)

当我在浏览器中判断控制台时，scrollPos始终设置为零.

推荐答案

我认为这符合您正在寻找的内容.

library(shiny)
library(DT)

js_save_scroll <- '$(document).on("shiny:connected", function(settings, json) {
  $("#tbl").on("click", function() {
    var scroll_x = $(document).scrollLeft();
    var scroll_y = $(document).scrollTop();
    console.log("Scroll position: " + scroll_x + ", " + scroll_y);
  });
});
'

df <- data.frame(matrix(rnorm(1000), nrow = 100, ncol = 50))

shinyApp(
  ui = fluidPage(
    tags$script(js_save_scroll),
    
    DTOutput('tbl')
  ),
  
  server = function(input, output) {
    output$tbl = renderDT(df)
  }
)