rpivotTable в блестящем - скрыть выпадающий список rendererName - PullRequest
0 голосов
/ 26 ноября 2018

Я пытаюсь скрыть раскрывающийся список рендерера в блестящем приложении.

Я попробовал метод, перечисленный здесь ( Скрыть фильтры в 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

1 Ответ

0 голосов
/ 27 ноября 2018

Отвечая на мой собственный вопрос, просто нужна следующая строка:

server.R

tags$style(type = 'text/css', ".pvtRenderer {visibility: hidden}")
...