Globe component for shiny application

globe.R

# set data to be render in arcs
flow <- reactive({
  return(select(filterData(),Source.Country.Lat,Source.Country.Long,Destination.Country.Lat,Destination.Country.Long))
})
# arc thickness based on volume
volume <- reactive({
  return((filterData()$volume / max(filterData()$volume, na.rm=TRUE)) * 4)
})
# set globe
output$globe <- renderGlobe(
    globejs(
        img=values$theme,
        arcs=flow(),
        arcsHeight=.9, 
        arcsLwd=volume(), 
        arcsColor=filterData()$color,  #extract color column from filtered data
        arcsOpacity=0.25,
        pointsize=0.5,
        rotationlat=values$lat,
        rotationlong=values$long,
        fov=50,
        atmosphere=TRUE
    )
)