diff --git a/data-raw/search_fhdbs.r b/data-raw/search_fhdbs.r index 640816e0..156fca0b 100644 --- a/data-raw/search_fhdbs.r +++ b/data-raw/search_fhdbs.r @@ -2,7 +2,7 @@ #' library(magrittr) # location of downloaded file -file <- here::here("data-raw","foodHabitData.rdata") +file <- here::here("data-raw/data","foodHabitData.rdata") download.file("https://github.com/NOAA-EDAB/ECSA/raw/master/data/allfhsg.RData",destfile=file) @@ -70,7 +70,7 @@ find_prey <- function(datafile=file,predator,area=F) { find_predators <- function(datafile=file) { load(datafile) # load fh data # read in functional group data - fg <- readr::read_csv(here::here("data-raw","functionalGroupNames.csv")) + fg <- readr::read_csv(here::here("data","functionalGroupNames.csv")) preds <- allfhsg %>% dplyr::distinct(svspp) %>% dplyr::rename(SVSPP = svspp) %>% @@ -80,4 +80,4 @@ find_predators <- function(datafile=file) { return(preds) -} \ No newline at end of file +}