如何在 Shiny 中隐藏 nvd3 条形图上的 Grouped/Stacked 按钮？

Question

我想隐藏显示闪亮的分组或堆叠条形图选项的按钮。

按钮应该会消失。

提前致谢。

这是我的代码，后面是图片详细信息

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)

Answer 1

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

.nv-controlsWrap {
  display:none;
}

Answer 2

制作是分组和隐藏控件

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

制作堆叠和隐藏控件

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

如何在 Shiny 中隐藏 nvd3 条形图上的 Grouped/Stacked 按钮？

How can I hide the Grouped/Stacked button on rnvd3 bar chart in Shiny?

r

shiny

rstudio

nvd3.js

shinydashboard