R/tidy_up-cbind_weather.R

In crazycapivara/owmr: OpenWeatherMap API Wrapper

#' Flatten weather column in data frame. (DEPRECATED)
#'
#' @param data data frame containing weather column
#'
#' @return data frame with flattened weather (data)
#' @export
#'
#' @examples\dontrun{
#'    get_forecast("Kassel") %>% cbind_weather()
#' }
cbind_weather <- function(data) {
  .Deprecated("owmr_as_tibble")
  data %<>% cbind(weather = flatten_weather(data$weather))
  data$weather <- NULL
  data
}