尝试在顶部的闪亮R应用程序中添加一个框,以容纳简短的描述和徽标

尝试在顶部的闪亮R应用程序中添加一个框,以容纳简短的描述和徽标,r,shiny,R,Shiny,我试图在顶部的一个闪亮的R应用程序中添加一个框,以容纳一个简短的描述和一个徽标。我一直找不到任何有效的代码。我的想法是包括一个水平框,并传递一些文字/图像的标志,但没有找到任何解决方案。谢谢你的帮助。下面是一些结构代码 header <- dashboardHeader(title = "May 2017", titleWidth = 525) sidebar <- dashboardSidebar(disable = TR

我试图在顶部的一个闪亮的R应用程序中添加一个框,以容纳一个简短的描述和一个徽标。我一直找不到任何有效的代码。我的想法是包括一个水平框,并传递一些文字/图像的标志,但没有找到任何解决方案。谢谢你的帮助。下面是一些结构代码

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)

header看看问题的答案,一个文本和图片放在一个盒子里,这是你需要的吗


在本例中,标题是哪一部分?第一行,此时是应用程序的标题。基本上,我需要一种方法来添加一个包含一些文本(应用程序的描述)以及png格式的徽标的框。您是否尝试在您的一个
语句中添加类似于
img(src='image.png',align=“right”)
的内容?是的,但我需要在应用程序的顶部添加它。某些文本的占位符和可能的重复项