library(lubridate)
my.geocode <- data.frame(lon = 24.93838,
lat = 60.16986,
address = "Helsinki, Finland")
day_night(ymd("2015-05-30", tz = "EET"),
geocode = my.geocode)
day_night(ymd("2015-05-30", tz = "EET") + days(1:10),
geocode = my.geocode,
twilight = "civil")
sunrise_time(ymd("2015-05-30", tz = "EET"),
geocode = my.geocode)
noon_time(ymd("2015-05-30", tz = "EET"),
geocode = my.geocode)
sunset_time(ymd("2015-05-30", tz = "EET"),
geocode = my.geocode)
day_length(ymd("2015-05-30", tz = "EET"),
geocode = my.geocode)
day_length(ymd("2015-05-30", tz = "EET"),
geocode = my.geocode,
unit.out = "day")
is_daytime(ymd("2015-05-30", tz = "EET") + hours(c(0, 6, 12, 18, 24)),
geocode = my.geocode)
is_daytime(ymd_hms("2015-05-30 03:00:00", tz = "EET"),
geocode = my.geocode)
is_daytime(ymd_hms("2015-05-30 00:00:00", tz = "UTC"),
geocode = my.geocode)
is_daytime(ymd_hms("2015-05-30 03:00:00", tz = "EET"),
geocode = my.geocode,
twilight = "civil")
is_daytime(ymd_hms("2015-05-30 00:00:00", tz = "UTC"),
geocode = my.geocode,
twilight = "civil")
Run the code above in your browser using DataLab