shniny의 rnvd3 막 대형 차트에서 그룹/적재 단추를 숨기려면 어떻게합니까?

Question

Grouped 또는 Stacked barchart 옵션이 반짝이는 버튼을 숨기고 싶습니다.

버튼이 사라집니다.

미리 감사드립니다. 여기

는 내 코드는 이미지 세부 사항

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