Question

我无法找到下面发布的代码中缺少的内容。我一直收到以下错误：

“ tabsetPanel（id =” tracker“，tabPanel（” Premium“， tags $ head（tags $ style（type =“ text / css”，：缺少参数，没有默认设置”

ui <- dashboardPage(skin = "green",
  dashboardHeader(title="Niche Tool"),
  dashboardSidebar(disable = TRUE),
  dashboardBody(
tags$style(HTML(".box-header{background:#d2d2d2; color:#d83000; text-align:center;}")),

shinyUI <- fluidPage(
  mainPanel(
    tabsetPanel(
      id = 'tracker',
      tabPanel("Premium", 
               tags$head(tags$style( type = 'text/css',  '#myPivot{ overflow-x: scroll; overflow-y: scroll; }')),
               rpivotTableOutput("pivot1", width = '100%', height = '300px'), br(), br(), br(), br(),br(), br(),
               rpivotTableOutput("pivot2", width = '100%', height = '300px')),
      #tabPanel("Incurred Losses"),
      tabPanel("Discretionary Pricing",
               rpivotTableOutput("pivot3", width = '100%', height = '300px'), br(), br(), br(), br(),br(), br(),
               rpivotTableOutput("pivot4", width = '100%', height = '300px')),

      )))))

Answer 1

ui <- dashboardPage(skin = "green",
                    dashboardHeader(title="Niche Tool"),
                    dashboardSidebar(disable = TRUE),
                    dashboardBody(
                      tags$style(HTML(".box-header{background:#d2d2d2; color:#d83000; text-align:center;}")),

                      shinyUI <- fluidPage(
                        mainPanel(
                          tabsetPanel(
                            tabPanel("Premium", 
                                     tags$head(tags$style( type = 'text/css',  '#myPivot{ overflow-x: scroll; overflow-y: scroll; }')),
                                     rpivotTableOutput("pivot1", width = '100%', height = '300px'), br(), br(), br(), br(),br(), br(),
                                     rpivotTableOutput("pivot2", width = '100%', height = '300px')),
                            #tabPanel("Incurred Losses"),
                            tabPanel("Discretionary Pricing",
                                     rpivotTableOutput("pivot3", width = '100%', height = '300px'), br(), br(), br(), br(),br(), br(),
                                     rpivotTableOutput("pivot4", width = '100%', height = '300px')),id = 'tracker')))))

我无法重现该示例，因为我没有代码的服务器部分，但可以尝试

缺少参数，没有默认值

1 个答案: