user_list <- 'box(
  title = "User List example",
  status = "success",
  width = NULL,
  userList(
    userListItem(
      src = "https://www.rstudio.com/wp-content/uploads/2014/04/shiny.png", 
      user_name = "Shiny", 
      description = "28.04.2018"
    ),
    userListItem(
      src = "https://www.rstudio.com/wp-content/uploads/2014/04/knitr.png", 
      user_name = "knitr", 
      description = "28.04.2018"
    ),
    userListItem(
      src = "https://www.rstudio.com/wp-content/uploads/2017/05/rmarkdown.png", 
      user_name = "Rmarkdown", 
      description = "28.04.2018"
    ),
    userListItem(
      src = "https://d33wubrfki0l68.cloudfront.net/071952491ec4a6a532a3f70ecfa2507af4d341f9/c167c/images/hex-dplyr.png", 
      user_name = "Tidyverse", 
      description = "28.04.2018"
    ),
    userListItem(
      src = "https://www.rstudio.com/wp-content/uploads/2014/04/tidyr.png", 
      user_name = "tidyr", 
      description = "28.04.2018"
    ),
    userListItem(
      src = "https://www.rstudio.com/wp-content/uploads/2014/04/packrat.png", 
      user_name = "packrat", 
      description = "28.04.2018"
    ),
    userListItem(
      src = "https://www.rstudio.com/wp-content/uploads/2014/04/sparklyr.png", 
      user_name = "packrat", 
      description = "28.04.2018"
    )
  )
)'