Intentando agregar un cuadro a una aplicación R brillante en la parte superior para albergar una breve descripción y un logotipo
Estoy tratando de agregar un cuadro a una aplicación R brillante en la parte superior para albergar una breve descripción y un logotipo. No he podido encontrar ningún código que funcione. Pensé en incluir un cuadro horizontal y pasarle texto / imagen para el logotipo, pero no encontré ninguna solución. Cualquier ayuda apreciada. Algún código estructural a continuación.
header <- dashboardHeader(title = "May 2017",
titleWidth = 525)
sidebar <- dashboardSidebar(disable = TRUE)
frow2 <- fluidRow(
box(
title = ""
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,dataTableOutput("topTen")
, height = 640
, width = 6
)
,box(
title = ""
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,dataTableOutput("topTenMostVuln")
, height = 640
, width = 6
)
)
frow3 <- fluidRow(
box(
title = ""
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,plotOutput("zscore_chart")
, height = 600
, width = 6
)
,box(
title = "Probabilities by Country and Crisis Type"
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
,plotOutput("probability_chart")
, height = 600
, width = 6
)
)
frow4 <- fluidRow(
box(
title = "Output"
,tabBox(
width = 18
,height = 60
,id = "dataTabBox"
,tabPanel(
title = ""
,dataTableOutput("")
)
,tabPanel(
title = ""
,dataTableOutput("")
)
,tabPanel(
title = ""
,dataTableOutput("")
)
,tabPanel(
title = ""
,dataTableOutput("")
)
,tabPanel(
title = ""
,dataTableOutput("")
)
)
,status = "primary"
,solidHeader = TRUE
,collapsible = TRUE
, height = 880
, width = 12
)
)
body <- dashboardBody(frow4, frow3, frow2)
ui <- dashboardPage(header, sidebar, body, skin = "black")
server <- function(input, output) {
})
shinyApp(ui, server)
Editar: necesito agregar un cuadro para alojar texto para que sirva como una descripción de lo que hace la aplicación, así como un logotipo, alineado a la derecha.