闪亮的rpivotTable-隐藏rendererName下拉列表

Question

我正在尝试在闪亮的应用程序中隐藏渲染器下拉列表。

我已经尝试通过添加tags$style来尝试此处列出的方法（Hide the filters in Shiny DT datatable），但这似乎无效。

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)
  })

}

Answer 1

回答我自己的问题，只需要以下几行：

server.R

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