Get the sunrise and sunset times for one location on one day

get_sunrise_sunset.R

get_sunrise_sunset <- function(lat,long, date, tz){
  # tz is required to know when daylight savings happens
  response <- httr::GET(glue::glue("https://api.sunrise-sunset.org/json?lat={lat}&lng={long}&date={date}&formatted=0"))
  results <- httr::content(response)$results
  
  results[["day_length"]] <- NULL
  results <- lapply(results, function(x) as.POSIXct(x,format="%Y-%m-%dT%T",tz="UTC"))
  results <- lapply(results, function(x) lubridate::with_tz(x, tzone = tz))
  results
}