Shinyのチェックボックス、アイコン、テキストのHTML書式

Question

私の質問はデザインに関するものです。申し訳ありませんが、HTMLに関する質問は投稿されません。印刷画面を追加します。可能であれば、コードなしで、それは面倒すぎる。

私はUI

は私のデータは四つのグループ

ui <- fluidPage(theme = shinytheme("united"), 
      titlePanel(HTML("<h1><center><font size=14> Projects </font></center></h1>")), 
      sidebarLayout(
       sidebarPanel(tags$b(tags$em("How about banks")), 

          checkboxGroupInput("typeInput", h4(tags$b("Sort # Client by type")), 
               c("Banks 1", 
               "Banks 2", 
               "Banks 3", 
               "Banks 4")), 

       tags$br(),   
       tags$br(),   
       column(width = 7, 
       tags$img(src = "Banks 1.png", height = 50, width = 50), h4(tags$b("BANKS 1")), 
       h4(tags$em("1. Bank ")), 
       h4(tags$em("2. Bank")), 
       h4(tags$em("3. Bank")), 
       h4(tags$em("4. Bank")), 
       h4(tags$em("5. Bank")), 

       tags$br(), 
       tags$br(), 
       tags$img(src = "Banks 2.png", height = 50, width = 50), h4(tags$b("Banks 2")), 
       h4(tags$em("6. Bank")), 
       h4(tags$em("7. Bank")), 
       h4(tags$em("8. Bank")), 
       h4(tags$em("9. Bank"))), 


       tags$img(src = "Banks 3.png", height = 50, width = 50), h4(tags$b("Banks 3")), 
       h4(tags$em("10. Bank")), 

       tags$br(), 
       tags$img(src = "Banks 4.png", height = 50, width = 50), h4(tags$b("Banks 4")), 
       h4(tags$em("11. Bank")), 
       h4(tags$em("12. Bank")), 
       h4(tags$em("13. Bank")), 
       h4(tags$em("14. Bank")), 
       h4(tags$em("15. Bank")), 
       h4(tags$em("16. Bank")), 
       h4(tags$em("17. Bank")), 
       h4(tags$em("18. Bank")), 
       h4(tags$em("19. Bank")), 


       tags$br() 

       column(10,style='white-space:nowrap;width:800px;', 
        leafletOutput("research_map",width="1200px",height="750px")) 
      ) 
) 

にグループ化されてきた。しかし、私はアイコンの近くに、それぞれのチェックボックスを配置すると、このアイコンの下での銀行のリスト。 4つのカテゴリーすべてで同じアプローチ。アイコン+チェックボックス - その下に一覧表示します。 これを行うにはどんなアイデアですか？ ありがとう

Answer 1

解決済み。

それは理由のおかげ

ui <- fluidPage(theme = shinytheme("united"), 
      titlePanel(HTML("<h1><center><font size=14> Title </font> 
</center></h1>")), 
      sidebarLayout(
       sidebarPanel(tags$b(tags$em("Text")), 

          div(id='typeInput', class="form-group shiny- 
input-checkboxgroup shiny-input-container shiny-bound-input", 
           # this was written in order to "separate" 
group checkbox inputs accross page 
           tags$br(), 
           tags$br(), 
           column(width = 7, 
             tags$img(src = "Banks 1.png", height = 
50, width = 50), h4(tags$b("Banks 1")), 
             HTML("<input type=checkbox 
name=typeInput value=Banks 1>"), 
             h4(tags$em("1. Bank")), 
             h4(tags$em("2. Bank")), 
             h4(tags$em("3. Bank")), 
             h4(tags$em("4. Bank")), 
             h4(tags$em("5. Bank")), 

             tags$br(), 
             tags$br(), 
             tags$img(src = "Banks 2.png", height = 
50, width = 50), h4(tags$b("Banks 2")), 
             HTML("<input type=checkbox 
name=typeInput value=Banks 2>"), 
             h4(tags$em("6. Bank")), 
             h4(tags$em("7. Bank")), 
             h4(tags$em("8. Bank")), 
             h4(tags$em("9. Bank"))), 

       column(width = 10,style='white-space:nowrap;width:800px;', 
        leafletOutput("map",width="1200px",height="750px"))#) 

checkboxGroupInput苦痛でした！