update restoration csv with finalized 2024 data

Author: fawda123

R/00_smartsheetimport.R

@@ -1,7 +1,9 @@
-# remotes::install_github('fawda123/rsmartsheet'))
+# remotes::install_github('fawda123/rsmartsheet')
 library(rsmartsheet)
 library(dplyr)
 
+maxyr <- 2024
+
 # smartsheet import ---------------------------------------------------------------------------
 
 smrkey <- Sys.getenv("smartsheets_key")
@@ -20,6 +22,7 @@ gpraraw <- get_sheet_as_csv('TBEP_NEPORT_Restoration_Data') %>%
 # select columns in correct order
 gpra <- gpraraw %>% 
   filter(Status == 'Entered') %>% 
+  filter(Federal.Fiscal.Year == maxyr) %>% 
   rename(
     Federal_Fiscal_Year = Federal.Fiscal.Year,
     Project_Name = Project.Name,
@@ -119,10 +122,10 @@ gpra <- gpraraw %>%
     AfterPhotoCaption
   )
 
-# add to pre-smartsheet entries ---------------------------------------------------------------
+# add entries to main file --------------------------------------------------------------------
 
-# read original
-orig <- read.csv(here::here('data-raw/restoration-noedit.csv'), stringsAsFactors = F)  
+# read main file
+orig <- read.csv(here::here('restoration.csv'), stringsAsFactors = F)  
 
 # add smartsheet to original
 # change Enhancement to Maintenance

TBEP_Habitat_Restoration.Rproj

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: 18d3801b-daf8-4aff-88ad-ff18ec79aaad
 
 RestoreWorkspace: Default
 SaveWorkspace: Default

data-raw/README.md

@@ -0,0 +1 @@
+`restoration_noedit.csv` is restoration projects prior to preparing them on Smartsheet and was used in a previous workflow. Do not manipulate this file.