R/API.R

In Oviing/Test2: Analysing of confirmed meteroites, which landed on earth

#API
#'\strong{meteroitesapi}
#'@description
#'meteroitesapi is a function to downlaod the meteroites data from the NASA SODA API.
#'It returns a data frame with the variable name "meteroitesData" in the global enviroment.
#'IMPORTANT: The meteroitesapi function should be executed before other functions to download the data for further computation.
#'@usage
#'\code{meteroitesapi()}
#'@param
#'No arguments are needed to execute the function
#'@export
meteroitesapi <- function(){
  weburl <- "https://data.nasa.gov/resource/gh4g-9sfh.csv"
  access <- GET(weburl)
  meteroitesData <<- read_csv(content(access, as = "text", type = "csv"))
  return(meteroitesData)
}