format(Sys.Date(), format="%B %d %Y")

library(plotly)

set.seed(1234)
xx <- sample.int(100)
yy <- rnorm(100)
yy <- (yy - min(yy))/(max(yy) - min(yy)) * 5

plot_ly(x=~time(xx),y=~yy,type="scatter",mode="lines") %>% layout(title = "Sunny's Daily Run", xaxis = list(title = "Days"),yaxis = list(title = "Distance (KM)"))