Динамическое выравнивание столбцов в DT datatable

Question

У меня есть больший объем данных с различным количеством столбцов, который я выбрал в своем виджете. Я хотел бы динамически выравнивать мои столбцы, но только нашел решение, если число столбцов исправлено. Я надеялся, что смогу просто настроить ссылку в команде target =, чтобы сделать ее динамичной. Как-то это не работает, и я не получаю вывод, когда количество столбцов меньше, чем ссылка по умолчанию. Я где-то читал, что реактивные утверждения не работают с параметрами данных. Я прикрепил MWE.

rm(list=ls()) 
library(shiny) 
library(datasets) 
library(datatable) 
DT<-data.table(matrix(abs(rnorm(100,sd=100000)),nrow=10)) 


server<-shinyServer(function(input, output) { 

    # Return the requested dataset 
    columns <- reactive({ 
    switch(input$columns, 
     all= c("V1","V2","V3","V4","V5","V6","V7","V8","V9","V10"), 
     left= c("V1","V2","V3","V4","V5"), 
     right= c("V6","V7","V8","V9","V10")) 
      }) 


    # Show table 
    output$view <- DT::renderDataTable(
    format(DT[,.SD,.SDcols=columns()],digits = 0,scientific=F), 
     option=list(columnDefs=list(list(targets=0:(length(columns())-1), class="dt-right"))) 
) 
}) 
    library(shiny) 

# Define UI for dataset viewer application 
ui<-shinyUI(fluidPage(

    # Application title 
    titlePanel("Shiny Text"), 

    # Sidebar with controls to select a dataset and specify the 
    # number of observations to view 
    sidebarLayout(
    sidebarPanel(
    selectInput("columns", label = h3("Select Columns"), 
        choices = list("All columns" = "all", "Left side" = "left", 
            "Right side" = "right"), selected = "all") 
    ), 

    # Show a summary of the dataset and an HTML table with the 
    # requested number of observations 
    mainPanel(
     DT::dataTableOutput("view") 
    ) 
) 
)) 



runApp(list(ui=ui,server=server)) 

Answer 1

DataTable варианты не реактивные в том смысле, что вы не можете изменить параметры без перерисовки всей таблицы, но если вы готовы перекроить таблицу, то это не проблема, см ниже:

Если вы измените функцию сервера на это должно работать:

server<-shinyServer(function(input, output) { 

    # Return the requested dataset 
    columns <- reactive({ 
    switch(input$columns, 
      all= c("V1","V2","V3","V4","V5","V6","V7","V8","V9","V10"), 
      left= c("V1","V2","V3","V4","V5"), 
      right= c("V6","V7","V8","V9","V10")) 
    }) 

    # reactive datatable 

    rdt <- reactive({ 
    DT::datatable(format(DT[,.SD,.SDcols=columns()],digits=0,scientific=FALSE), 
        option=list(columnDefs=list(
        list(targets=seq_len(length(columns()))-1, 
         class="dt-right")))) 
    }) 


    # Show table 
    output$view <- DT::renderDataTable(
    rdt() 
    ) 

}) 

Я создаю реактивную datatable, который реагирует на columns() и перерисовывает таблицу с правильной columnDef. Если бы у вас было много данных, это было бы очень медленно.