R/get_obs_data.R

In omarbenites/rwikipapa: 'WikiPapa' 'API'

#' Get obsevational data from WikiPapa Plataform
#' @author Omar Benites
#' @description Observational data from the variety scouting
#' @param url character url path
#' @param call character api call name
#' @param idate character date format yyyy-mm-dd
#' @export
#' 

get_observational_data <- function(url="https://wikipapa.org/api/export/", 
                                 call="observations-data", 
                                 idate = "2022-04-11" ){
  #obsurl <- "https://wikipapa.org/api/export/observations-data"
  #obs_data<- jsonlite::fromJSON(obsurl)$data 
  obsurl <- paste0(url,call)
  obs_data <- jsonlite::fromJSON(obsurl)$data  
  raw_data <- obs_data
  obs_data$observation_date <- anytime::anydate(obs_data$observation_date)
  obs_data <- obs_data %>% dplyr::filter(observation_date >= {{idate}}) %>% 
    #filter(!user_id %in% c(48,40,49,38,47,39,35 )) %>% 
    mutate(variety_name = tolower(variety_name)) %>% 
    mutate(is_original = as.character(is_original)) %>% 
    mutate(observation_notes = tolower(observation_notes)) %>% 
    mutate(
      afiliacion = case_when( 
        str_detect(observation_notes,"alfonso ugarte")~ "IE Alfonso Ugarte",
        str_detect(observation_notes,"alfonso")~ "IE Alfonso Ugarte",
        str_detect(observation_notes,"au pau")~ "IE Alfonso Ugarte",
        str_detect(observation_notes,"au psau")~ "IE Alfonso Ugarte",
        str_detect(observation_notes,"undac")~ "UN. Daniel Alcides Carrion",
        str_detect(observation_notes,"daniel")~ "UN. Daniel Alcides Carrion",
        str_detect(observation_notes,"ramon")~ "IE Ramon Castilla",
        str_detect(observation_notes,"castilla")~ "IE Ramon Castilla",
        str_detect(observation_notes,"castillo")~ "IE Ramon Castilla",
        str_detect(observation_notes,"san francisco")~ "San Francisco",
        str_detect(observation_notes,"sf")~ "San Francisco",
        str_detect(observation_notes,"agroindustrial")~ "IE Agroindustrial",
        str_detect(observation_notes,"agroindustrial")~ "IE Agroindustrial",
        str_detect(observation_notes,"cesar pérez arauco")~ "Cesar Perez Arauco",
        TRUE ~ "Otros varios"
      )
    )  %>% 
    mutate(farmer_name = tolower(farmer_name)) %>% 
    mutate(
      farmer_name = case_when( 
        str_detect(farmer_name,"alda")~ "Alda Chavez Callupe",
        str_detect(farmer_name,"elmer")~ "Elmer Chavez",
        str_detect(farmer_name,"undac")~ "UN. Daniel Alcides Carrion",
        str_detect(farmer_name,"nacional daniel")~ "UN. Daniel Alcides Carrion",
        str_detect(farmer_name,"victor")~ "Victor Condor",
        str_detect(farmer_name,"sinche")~ "Juan Vasquez Sinche",
        str_detect(farmer_name,"alda haydee chavez callupe")~ "Alda Haydee Chaves Callupe",
        str_detect(farmer_name,"jaime cabello")~ "Jaime Cabello",
        str_detect(farmer_name,"macha pizarro")~ "Hernan Macha Pizarro",
        str_detect(farmer_name,"antonio cordova vega")~"Antonio Cordova Vega",
        str_detect(farmer_name,"esther atahuaman carhuachagua")~"Esther Atahuaman Carhuachagua",
        str_detect(farmer_name,"david basualdo")~"David Basualdo",
        str_detect(farmer_name,"carhuaz")~"Juan Manuel Carhuaz",
        TRUE ~ "Otros-Desconocidos"
      )
    ) %>% 
    mutate(farmer_name =  str_to_title(farmer_name)) %>%
    slice(1:803)

}