R/read_satelite.R

In edpclau/circadian-dynamics: Period and Rythm Analysis of Timeseries Data

#' Import Weather data From satellite
#'
#' @param path
#'
#' @return
#' @export
#'
#' @examples
#'
read_satellite <- function(path = NULL) {
  if (is.null(path)) path = rstudioapi::selectFile()
  df <- readr::read_csv(path, skip = 8, col_types = list(readr::col_datetime(), readr::col_double()))
  # df$time <- lubridate::mdy_hm(df$time)
  df <- dplyr::rename(df, 'datetime'=time)
  return(df)
}