Date
print(format(Sys.Date(), format="%B %d %Y"))
## [1] "April 04 2022"
Plotly
library(plotly)
## Loading required package: ggplot2
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
set.seed(1234)
xx <- sample.int(100)
yy <- rnorm(100)
plot_ly(x=~time(xx),y=~yy,type="scatter",mode="lines") %>% layout(title = "Simple Plotly", xaxis = list(title = "xx"),yaxis = list(title = "yy"))