上部の光沢のあるRアプリにボックスを追加して短い説明とロゴを入れようとしています

上部の光沢のあるRアプリにボックスを追加して、短い説明とロゴを入れようとしています。私は動作するコードを見つけることができませんでした。私の考えは、水平のボックスを入れてロゴのテキスト/イメージを渡すことでしたが、解決策は見つかりませんでした。どんな助けもありがたい。以下の構造コード。上部の光沢のある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)

編集：私は、右揃え、アプリケーションが何をするなどの記述だけでなく、ロゴとして機能するいくつかのテキストを収容するボックスを追加する必要があります。

出典

2017-05-30 OwlieW

この例では、どの部分がヘッダーですか？ – MrFlick

最初の行は現時点ではアプリケーションのタイトルです。基本的には、何らかのテキスト（アプリケーションの説明）とpng形式のロゴを入れるためのボックスを追加する方法が必要です – OwlieW

'img（src = 'image.png'、align = "right"） ''あなたの 'box'ステートメントの1つで？ – krish