R Shiny tabsetPanel显示奇怪的标签名称?

时间:2016-02-08 08:59:48

标签: r shiny

我正在使用shinydashboard并使用tabsetPanel,但是左上角的tabPanel上显示了一个奇怪的名称/号码(例如: tab-4750-1 和数字变化)。 有谁知道我怎么能删除它?

提示:问题出现在menuItem:Tabelle&曲线

代码:

library(shiny)
library(shinydashboard)
library(ggplot2)
library(scales)
library(reshape2)
library(plyr)
library(dplyr)
library(DT)


ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Tabelle & Plots", icon = icon("area-chart"), tabName = "tabelle")
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard"

      ),

      tabItem(tabName = "tabelle",
              tabsetPanel(id="tabs",width = NULL, height = "800px",  selected = 1,
                          tabPanel(value=1,title="Tabelle filtern", 
                                   fluidRow(
                                     column(12,
                                            box(width = NULL, div(style = 'overflow-y: scroll; overflow-x: scroll;max-height: 650px; position:relative;', 
                                                                  dataTableOutput("tabelle")))))),
                          tabPanel("Plots", value = 2,
                                   fluidRow(
                                     column(12, 
                                            box(width = NULL, plotOutput("plot", height=650)),
                                            box(status = "danger",width = NULL,div(style = 'overflow-x: scroll;position:relative;', 
                                                                                   dataTableOutput("tabelle2")))))))

      )
    )
  )
)

server <- function(input, output) { 

  }

shinyApp(ui, server)

感谢您的帮助!

干杯

0 个答案:

没有答案