Create hyperlink modal section that appears ONLY when the sidebar logo is clicked

Additional tab section for additional links

modal.header(...)

Arguments

...	The list of tabs to include

Value

An HTML containing elements of links to be inserted in the header of a page

Examples

list1 <- list(
  title = "Home", icon = shiny::icon("home"),
  link = "https://google.com"
)
list2 <- list(
  title = "Docs", icon = shiny::icon("folder"),
  link = "https://obi.obianom.com"
)

modal.header(list(list1, list2))
#> <div class="modal fade modal-backdrop-transparent" id="modal-shortcut" tabindex="-1" role="dialog" aria-labelledby="modal-shortcut" aria-hidden="true">
#>   <div class="modal-dialog modal-dialog-top modal-transparent" role="document">
#>     <div class="modal-content">
#>       <div class="modal-body">
#>         <ul class="app-list w-auto h-auto p-0 text-left">&lt;li&gt;
#>   &lt;a class="app-list-item text-white border-0 m-0"&gt;
#>     &lt;div class="icon-stack"&gt;
#>       &lt;i class="base base-7 icon-stack-3x opacity-100 color-primary-500 "&gt;&lt;/i&gt;
#>       &lt;i class="base base-7 icon-stack-2x opacity-100 color-primary-300 "&gt;&lt;/i&gt;
#>       &lt;span class="icon-stack-1x opacity-100 color-white"&gt;&lt;/span&gt;
#>     &lt;/div&gt;
#>     &lt;span class="app-list-name"&gt;&lt;/span&gt;
#>   &lt;/a&gt;
#> &lt;/li&gt;</ul>
#>       </div>
#>     </div>
#>   </div>
#> </div>