2017-09-21 17 views
0

所以,我的問題是關於設計。抱歉,從未發佈HTML問題。添加打印屏幕。如果可能,沒有代碼,這太麻煩了。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")) 
      ) 
) 

enter image description here

但是我希望把附近的圖標每個複選框,然後在該圖標的銀行名單。與所有四個類別相同的方法。圖標+複選框 - 並在它們下面列出。 任何想法做到這一點? 謝謝

+2

屏幕截圖肯定會有所幫助。 – amrrs

+1

和一個可重複的應用程序,... – BigDataScientist

+0

@amrrs,對不起,從未發佈html問題,我添加了一個打印屏幕。非常感謝。 – Oleksiy

回答

0

已解決。

這是一個痛苦,因爲checkboxGroupInput

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"))#) 

謝謝!