From dd11195c03c3bff1c9206e17506b0930070f74e8 Mon Sep 17 00:00:00 2001
From: andybeet <22455149+andybeet@users.noreply.github.com>
Date: Tue, 19 Oct 2021 16:35:52 -0400
Subject: [PATCH] changed path to where food habits data is downloaded

---
 data-raw/search_fhdbs.r | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
+}