title: RShiny - Render InfoBox from list
body: <p>In R, I am familiar with the renderMenu option to render a list of rows in a dataframe as a drop-down menu:</p>
  
  <p>Server side: </p>
  
  <pre><code>output$task_menu &lt;- renderMenu({
          tasks &lt;- apply(task_data, 1, function(row) {
            taskItem(text = row[["text"]],
                     value = row[["value"]])
          })
  
          dropdownMenu(type = "tasks", .list = tasks)
        })
  </code></pre>
  
  <p>and UI side:</p>
  
  <pre><code>dashboardHeader(dropdownMenuOutput("task_menu"))
  </code></pre>
  
  <p>do you have an idea of how to do something similar with infoBoxes as part of a fluidRow in the dashboardBody?</p>
  
  <p>Concretely, I have a data frame with attributes such as category, title, description, icon, and web link and I would like to generate a dashboard that shows this information in a more user friendly way than just a data table. Ideally, I would generate tabs for each category as well (rather than hard-code them and filter accordingly). </p>
  
  <p>Below is a reproductible code that renders the data as a table. I would like to render each row as an infobox instead, or something much more visual than the data table, and possibly each category in its own tab.</p>
  
  <pre><code>library(shiny); library(shinydashboard)
  library(plyr);library(dplyr)
  
  apps_directory &lt;- data.frame(category = c('Movies','Books','Movies','Movies','Books'), 
                               title = c('Lord of the Rings','Neverending story','Batman','Superman','The little prince'), 
                               description = c('This..', 'This..', 'This..', 'This..', 'This..'), 
                               icon = c('rocket', 'rocket', 'rocket', 'rocket','rocket'), 
                               PageURL = c('http://www.google.com', 'http://www.google.com', 'http://www.google.com','http://www.google.com','http://www.google.com'))
  
  #add html link tags
  apps_directory$PageURL &lt;- paste0("&lt;a href='",apps_directory$PageURL,"'&gt;",apps_directory$PageURL,"&lt;/a&gt;")
  
  header &lt;- dashboardHeader(disable = TRUE)
  
  sidebar &lt;- dashboardSidebar(disable = TRUE)
  
  body &lt;- dashboardBody(
    tableOutput("view")
  )
  
  server &lt;- function(input, output) {
    output$view &lt;- renderTable({apps_directory}
                               , sanitize.text.function = function(x) x)
  }
  
  
  ui &lt;- dashboardPage(header = header,
                      sidebar = sidebar,
                      body = body
  )
  shinyApp(ui, server)
  </code></pre>
  
  <p>Thank you!</p>