Блог

Я думаю, что правильно следую инструкциям расширений таблиц данных, чтобы заморозить заголовки и первый столбец в таблице данных. Расширение заголовков работает правильно, а расширение столбцов-нет. Что я делаю не так?

Я создал вектор

 extensions = c('FixedHeader','FixedColumns')

 

И я также добавил аргумент в список опций:

 options = list(order=list(0,'asc'), 
                                      dom='t', 
                                      pageLength= 100, 
                                      autoWidth = TRUE, 
                                      fixedHeader = TRUE, 
                                      fixedColumns= TRUE),
                       rownames = FALSE)
 

Я запускаю это внутри блестящей структуры.

Полный код сервера:

 server <- function(input, output, session) {
  categories <- reactive({
    filter(df, var_1 == input$var_1)
  })
  observeEvent(categories(), {
    choices <- unique(categories()$var_2)
    updateSelectInput(inputId = "var_2", choices = choices) 
  })
  
  
  output$data <- DT::renderDataTable({
    req(input$var_2)
    
    table<-categories() %>% 
      filter(var_2 %in% input$var_2) %>% 
      select(var_2, var_3)%>%
      mutate(result="Yes") %>%
      tidyr::pivot_wider(names_from = var_2, values_from = result, values_fill = "No")%>%
      rename(Columns=var_3)
    
    table_1<-DT::datatable(table, 
                           filter= 'top', 
                           extensions = c('FixedHeader','FixedColumns'), 
                           options = list(order=list(0,'asc'), 
                                          dom='t', 
                                          pageLength= 100, 
                                          autoWidth = TRUE, 
                                          fixedHeader = TRUE, 
                                          fixedColumns= TRUE),
                           rownames = FALSE)
    table_2 <-DT::formatStyle(table_1,
                      columns = colnames(table),
                      fontWeight = styleEqual(c('No', 'Yes'), c('normal', 'bold')))
  
  
    return(table_2)
    
    
      
  })
}


 

Спасибо