Trying Out Googlevis

Major Sports League Season Timeline

#==============================================================================

library(readxl)
suppressPackageStartupMessages(library(googleVis))

#==============================================================================

sport <- read_excel("C:/Users/Maluwa/Google Drive/Maluwalmk/sports.xlsx")


sport <- sport[order(sport$start), ]

s.timeline <- gvisTimeline(data = sport, 
                           rowlabel = "league",
                           start = "start",
                           end = "end",
                           options= list(timeline = "{groupByRowLabel:false}",
                                        backgroundColor = '#f2f2f2', 
                                        height = 350,
                                        width = "automatic")
                           )
print(s.timeline, tag = "chart")