闪亮的仪表板框背景答案

【问题标题】：shinydashboard box background闪亮的仪表板框背景
【发布时间】：2018-05-16 00:02:53
【问题描述】：

我无法弄清楚为什么背景颜色不适用于我的 shinydashboard 应用程序。每个框应该只包含标题、描述和转到链接的按钮，但是尽管完全遵循 github 页面 (https://rstudio.github.io/shinydashboard/structure.html#boxes) 示例，但我的页面没有显示颜色。非常感谢任何有关原因的帮助。示例代码如下。

    {
      library('shiny')
      library('shinydashboard')
    }

    # UI

    ui<-fluidPage(
      titlePanel("Sample Code"),
      fluidRow(
        column(6,
               h1("Sample 1"),

               shinydashboard::box(title = "Google", "Description for Google", solidHeader = TRUE, background = "green",
                                   br(),
                                   shiny::actionButton(inputId='link1', label="Go To Google", 
                                                       onclick ="window.open('https://google.com', '_blank')")
               ),



               shinydashboard::box(title = "Stack Overflow", "Description for Stack Overflow", solidHeader = TRUE, background = "blue",
                                   br(),
                                   shiny::actionButton(inputId='link2', label="Go To Stack", 
                                                       onclick ="window.open('https://stackoverflow.com/', '_blank')")
               )

        )
      ))


    #SERVER
    server<-function(input,output,session)
    {
    }

    #Run the Shiny App to Display Webpage
    shinyApp(ui=ui, server=server)

【问题讨论】：

标签： r shinydashboard

【解决方案1】：

您正在使用流体页面和仪表板元素。这种组合不起作用。您必须将 ui 调整为完全像这样的仪表板页面：

{
  library('shiny')
  library('shinydashboard')
}

# UI

ui<-dashboardPage(
  dashboardHeader(
    title="Sample Code"
  ),
  dashboardSidebar(),
  dashboardBody(
    column(6,
           h1("Sample 1"),

           shinydashboard::box(title = "Google", "Description for Google", solidHeader = TRUE, background = "green",width = 10,
                               br(),
                               shiny::actionButton(inputId='link1', label="Go To Google", 
                                                   onclick ="window.open('https://google.com', '_blank')")
           ),

           shinydashboard::box(title = "Stack Overflow", "Description for Stack Overflow", solidHeader = TRUE, background = "blue",width = 10,
                               br(),
                               shiny::actionButton(inputId='link2', label="Go To Stack", 
                                                   onclick ="window.open('https://stackoverflow.com/', '_blank')")
           )

    )
  ))


#SERVER
server<-function(input,output,session)
{
}

#Run the Shiny App to Display Webpage
shinyApp(ui=ui, server=server)

我还在方框中添加了 width=10 参数，否则它们无法很好地显示。

【讨论】：