#
# Interactive map component
#

interactiveMapComponent <- function(rowSize)
{
  fluidRow(
    column(rowSize,
           leafletOutput("interactive_world_map")
    )
  )
}