Prints the weather at your location (based on IP)

weather_here.R

if (requireNamespace("bomrang", quietly = TRUE)) {
  library(data.table)
  library(bomrang)  # devtools::install_github('ToowoombaTrio/bomrang')
  `_nrst_stn_to_me` <- as.numeric(jsonlite::fromJSON("http://ip-api.com/json")[c("lat", "lon")])
  
  weather_here <- function() {
    bomrang::get_current_weather(latlon = `_nrst_stn_to_me`, as.data.table = TRUE) %>%
      .[, .(local_date_time, weather, rel_hum, apparent_t, air_temp, wind_dir, wind_spd_kt, gust_kt)] %>%
      head
  }
}