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

Question

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

我已经通过添加尝试了此处列出的方法（在 Shiny DT 数据表中隐藏过滤器），tags$style但它似乎不起作用。

用户界面

library(shiny)
library(rpivotTable)

shinyUI(fluidPage(

  tags$style(type = 'text/css', "#pivot tbody > tr > td:nth-child(1)  {display:none; }"),

    rpivotTableOutput('pivot')
))

服务器.R

library(shiny)
library(rpivotTable)

function(input, output, session) {

  output$pivot <- renderRpivotTable({
    rpivotTable(iris)
  })

}

Answer 1

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

服务器.R

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