R/query_usda.R

Defines functions query_usda

Documented in query_usda

#' Queries the USDA database
#' 
#' Runs the query to the USDA database
#' @param codes A vector of USDA codes
#' @param api.key A user's API key
#' @keywords json
#' @export
#' @examples
#' query_usda()

query_usda <- function(codes,api.key){
  require(tidyverse)
  dat <- data.frame()
  for(i in 1:length(codes)){
    if(is.na(codes[i]) == TRUE){
      dat = dat
    }
    else{
      res = usda_api(paste0("/fdc/v1/",codes[i],"?api_key=",api.key))
      print(codes[i])
      dat = bind_rows(dat,process_data(res)) 
    }
  }
  dat
}
swood-ecology/NutrFD documentation built on Nov. 5, 2019, 2:21 p.m.