фон коробки для щита

Question

Я не могу понять, почему цвет фона не работает для моего приложения 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)

Answer 1

Вы используете элементы FluidPage и Dashboard. Эта комбинация не работает. Вы должны адаптировать интерфейс, чтобы он был полностью панелью управления. Страница выглядит так:

{
  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 в поля, иначе они отображаются некорректно.