Я пытаюсь скрыть раскрывающийся список рендерера в блестящем приложении.
Я попробовал метод, перечисленный здесь ( Скрыть фильтры в Shiny DT datatable ), добавив tags$style
, ноКажется, он не работает.
ui.R
library(shiny)
library(rpivotTable)
shinyUI(fluidPage(
tags$style(type = 'text/css', "#pivot tbody > tr > td:nth-child(1) {display:none; }"),
rpivotTableOutput('pivot')
))
server.R
library(shiny)
library(rpivotTable)
function(input, output, session) {
output$pivot <- renderRpivotTable({
rpivotTable(iris)
})
}
![enter image description here](https://i.stack.imgur.com/uos3q.png)