Скрытие колонны в сиянии - PullRequest
Новая
       4

Скрытие колонны в сиянии

0 голосов
/ 03 марта 2020

В моем блестящем приложении есть таблица данных. Я хотел бы скрыть первый столбец. Ниже приведена часть моего кода. Предполагается, что эта часть "datatable (население_, параметры = список (columnDefs = список (список (видимый = ЛОЖЬ), цели = c (1)))))" выполняет эту работу, но столбец отображается в таблице данных.

Спасибо за вашу помощь.

Надер 

#print data in data tab
     bardata_ <- reactive ({
    out <- population_ %>%
      filter (County %in% input$county,
              Year %in% input$years,
              Sex %in% input$sex)
    return(out)
  })
  output$data <- DT::renderDataTable ({
    datatable(population_, options=list(columnDefs = list(list(visible=FALSE, targets=c(1)))))

    (bardata_())
  })

Ответы [ 2 ]

1 голос
/ 03 марта 2020

Ваша функция возвращает не population_, а bardata_()
Используйте это: 

  bardata_ <- reactive ({
    out <- population_ %>%
      filter (County %in% input$county,
              Year %in% input$years,
              Sex %in% input$sex)
    return(out)
  })
  output$data <- DT::renderDataTable ({
    datatable(population_, options=list(columnDefs = list(list(visible=FALSE, targets=c(1)))))

  })

Проверьте здесь 

library(shiny)
ui <- fluidPage(
  DT::dataTableOutput("dt")
)

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

  output$dt <- DT::renderDataTable({

   DT::datatable(iris, options=list(columnDefs = list(list(visible=FALSE, targets=c(1)))))
    (iris)
  })
}

shinyApp(ui, server)

И 

ui <- fluidPage(
  DT::dataTableOutput("dt")
)

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

  output$dt <- DT::renderDataTable({

   DT::datatable(iris, options=list(columnDefs = list(list(visible=FALSE, targets=c(1)))))

  })
}

shinyApp(ui, server)
0 голосов
/ 03 марта 2020

Я думаю, что вы можете просто сделать оператор select для ваших данных, которые вы передаете в datatable (). Использование "-" перед столбцами удалит их. 

datatable(population_ %>% select(-First_column_name),...)

С основанием R: 

population_[,2:ncol(population_)]
...