0
153
VistasR Shiny comunica los tamaños de columna entre R y Javascript con colResize
Estoy usando este complemento para habilitar el cambio de tamaño de columna manual para DataTables en R Shiny. Ahora me gustaría guardar el estado del ancho de la columna después de que el usuario cambió el tamaño de la tabla. Para esto, me gustaría comunicar el cambio en una variable de entrada Shiny. Sin embargo, soy bastante nuevo en Javascript y jQuery, lo que significa que no entiendo las instrucciones en la página de Github. Así que me gustaría preguntar cómo lograr esto.
·
Juan Pablo Isaza
1 Respuestas
Responde la pregunta0
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) 
·
Juan Pablo Isaza
Denunciar
Responde la pregunta