library(globe4r)

data(usflights)

create_globe(height = "100vh") %>%
  globe_arcs(
    data = usflights,
    coords(
      start_lat = start_lat,
      start_lon = start_lon,
      end_lat = end_lat,
      end_lon = end_lon,
      color = cnt,
      dash_length = .4,
      dash_gap = .2,
      dash_animate_time = 5000
    )
  ) %>%
  globe_pov(
    34, -93, 1.5, ms = 4500
  ) %>%
  scale_arc_color()