R Shiny 使用 colResize 在 R 和 Javascript 之间传达列大小

Question

我正在使用 this 插件为 R Shiny 中的数据表启用手动列大小调整。现在我想在用户调整 table 大小后保存列宽状态。为此，我想将更改传达给 Shiny 输入变量。但是，我对 Javascript 和 jQuery 还很陌生，这意味着我不理解 Github 页面上的说明。所以想请教如何实现。

Answer 1

library(shiny)
library(DT)
library(htmltools)

dep <- htmlDependency(
  name = "colResize", 
  version = "1.6.1", 
  src = normalizePath("colResize"),
  script = "jquery.dataTables.colResize.js",
  stylesheet = "jquery.dataTables.colResize.css",
  all_files = FALSE
)

js <- c(
  "function(column, columns){",
  "  Shiny.setInputValue('colwidth', column);",
  "}"
)

dat <- head(iris, 6)

ui <- fluidPage(
  br(),
  fluidRow(
    column(
      width = 8,
      DTOutput("dtable")
    ),
    column(
      width = 4,
      verbatimTextOutput("columnWidth")
    )
  )
)

server <- function(input, output, session){
  
  output[["dtable"]] <- renderDT({
    dtable <- datatable(
      dat,
      options = list(
        colResize = list(
          onResizeEnd = JS(js)
        )
      )
    ) 
    deps <- dtable[["dependencies"]]
    deps <- c(deps, list(dep))
    dtable[["dependencies"]] <- deps
    dtable
  })
  
  output[["columnWidth"]] <- renderPrint({
    input[["colwidth"]]
  })
  
}

shinyApp(ui, server)

R Shiny 使用 colResize 在 R 和 Javascript 之间传达列大小

R Shiny communicate column sizes between R and Javascript with colResize

javascript

jquery

r

shiny

dt