add summer 2023 plant census data [minor] (#529)

* add summer 2023 plant census data [minor] * update transect data test[minor] * remove duplicates [minor] * update max precip total in weather test [minor] * increase max preciptotal [minor]
weecology · May 3, 2024 · e5db053 · e5db053
1 parent c9451f2
commit e5db053
Show file tree

Hide file tree

Showing 8 changed files with 2,094 additions and 13 deletions.
diff --git a/DataCleaningScripts/clean_plant_quadrat_data.R b/DataCleaningScripts/clean_plant_quadrat_data.R
@@ -26,7 +26,7 @@ source('DataCleaningScripts/plant_data_cleaning_functions.R')
 # 1. Load Excel file #
 ######################
 
-season <-  'Winter'
+season <-  'Summer'
 year <-  '2023'
 filepath <-  'D:\\Dropbox\\Portal\\PORTAL_primary_data\\Plant\\Quadrats\\Dataraw\\Newdata\\'
 

diff --git a/DataCleaningScripts/clean_shrub_transect_data.R b/DataCleaningScripts/clean_shrub_transect_data.R
@@ -26,7 +26,7 @@ source('DataCleaningScripts/plant_data_cleaning_functions.R')
 # 1. Load Excel file #
 ######################
 season <-  'Summer'
-year <-  '2022'
+year <-  '2023'
 filepath <-  'D:\\Dropbox\\Portal\\PORTAL_primary_data\\Plant\\TRANSECTS\\ShrubTransects(2015-present)\\RawData\\'
 
 excel_file <-  paste(filepath, "ShrubTransect_", season, year, '.xlsx', sep='')

diff --git a/DataCleaningScripts/plant_data_cleaning_functions.R b/DataCleaningScripts/plant_data_cleaning_functions.R
@@ -142,7 +142,7 @@ transect_data_quality_checks = function(df,splist) {
     print(startstop)}
 
   # check for valid height value
-  checkheight = df[which(!(df$height %in% 0:400)),]
+  checkheight = df[which(!(df$height %in% 0:500)),]
   if (dim(checkheight)[1]>0) {print('check height:')
     print(checkheight)}
 

diff --git a/Plants/Portal_plant_census_dates.csv b/Plants/Portal_plant_census_dates.csv
@@ -80,3 +80,4 @@ year,season,censusdone,start_month,start_day,end_month,end_day
 2022,winter,yes,4,5,4,7
 2022,summer,yes,8,31,9,4
 2023,winter,yes,3,21,3,23
+2023,summer,yes,9,12,9,13