fixed path to read in file

NOAA-EDAB · Jun 25, 2024 · 90a99b3 · 90a99b3
1 parent 6b68a95
commit 90a99b3
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/create_dataset.R b/R/create_dataset.R
@@ -4,9 +4,9 @@
 #'
 #' @param fleetType character (scallop, groundfish)
 
-create_dataset <- function(fleettype) {
+create_dataset <- function(fleetType) {
 
-  cleanData <- readRDS(here::here("data-raw/processedData.rds"))
+  cleanData <- readRDS(here::here("data-raw/fishing/processedData.rds"))
   # just select commercial fleets within the NEUS domain
   cleanData <- cleanData$data
 
@@ -24,7 +24,7 @@ create_dataset <- function(fleettype) {
     stop("Please select an appropriate fleet type")
   }
 
-  return(fleeData)
+  return(fleetData)
 
 }