DataProducstsWeek2Assignment

This assignment we use leaflet to create a map.

library(leaflet)
library(lubridate) # To display date and time

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

Displaying the current date and time

today <- Sys.Date()

gmt_time <- Sys.time()

gmt_time <- with_tz(gmt_time, tzone = "GMT")

cat("Date of preparing document:", format(today, "%Y-%m-%d"), "\n")

## Date of preparing document: 2024-05-07

cat("GMT Time of preparing document:", format(gmt_time, "%H:%M:%S"), "\n")

## GMT Time of preparing document: 09:28:24

We will display the location of Statue of Liberty