如何将rnvd3条形图上的“分组/堆叠”按钮隐藏在屏幕中？

我想隐藏在屏幕上显示分组或堆叠条形图选项的按钮

这个按钮应该是红色的

提前谢谢

下面是我的代码，后面是图像详细信息

library(shiny)
library(rCharts)
library(shinythemes)
library(shinydashboard)

ui <- navbarPage(title = "Information", 

                 tabPanel(title = "Graph",  

                                   fluidRow(
                                     column(2),
                                     column(8,
                                            tags$br(),
                                            tags$h5("Chart", style="font-weight: bold; font-size:20px", align = "center"),
                                            tags$br())
                                   ),

                                  fluidRow(
                                    column(1),
                                    column(8,
                                           tags$br(),
                                           tags$h5("Exemple", style="font-weight: bold; font-size:14px", align = "center"),
                                           tags$br(),
                                           showOutput("bar","nvd3")), 
                                    column(1)
                                  ),

                          tags$head(tags$style(HTML("
                                           .nvtooltip h3 {
                                                    font-size:8px;
                                                    }
                                                    ")))


                 )
)

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

output$bar <- renderChart2({

      database2 <- cbind(cbind(c(100,110,140),c("2016-09-05","2016-09-05","2016-09-05")),c("Product A","Product B","Product C"))
      database2[,1] <- as.numeric(database2[,1]) 
      database2[,2] <- as.Date(database2[,2],origin="1899-12-30")
      colnames(database2) <- c("Price","Date","Key")
      database2 <- as.data.frame(database2)

      m1net_eb <- nPlot(Price ~ Date, group = 'Key', data = database2, type='multiBarChart')
      m1net_eb$chart(margin = list(left=60,bottom=110,right=60))
      m1net_eb$chart(forceY = 0)
      m1net_eb$set(lineWidth = 1, width=1100 , height = 700)
      m1net_eb

})

}

shinyApp(ui=ui, server=server)

库（闪亮）
图书馆（艺术）
图书馆（shinythemes）
图书馆（shinydashboard）
ui您可以使用CSS来隐藏它。只需将这些添加到当前的
标记$head（标记$style（））
部分：

.nv-controlsWrap {
  display:none;
}

您可以使用CSS来隐藏它。只需将这些添加到当前的
标记$head（标记$style（））
部分：

.nv-controlsWrap {
  display:none;
}

将控件分组并隐藏控件的步骤

var chart = nv.models.multiBarChart().stacked(false).showControls(false);

var chart = nv.models.multiBarChart().stacked(true).showControls(false);

使控件堆叠并隐藏控件的步骤

var chart = nv.models.multiBarChart().stacked(false).showControls(false);

var chart = nv.models.multiBarChart().stacked(true).showControls(false);

将控件分组并隐藏控件的步骤

var chart = nv.models.multiBarChart().stacked(false).showControls(false);

var chart = nv.models.multiBarChart().stacked(true).showControls(false);

使控件堆叠并隐藏控件的步骤

var chart = nv.models.multiBarChart().stacked(false).showControls(false);

var chart = nv.models.multiBarChart().stacked(true).showControls(false);