permit data for 2023 renewal report [minor] (#515)

* partial data for 2023 permit renewal report [minor] * add full data for permit 2023 [minor]
weecology · Jan 30, 2024 · a365768 · a365768
1 parent aadfc44
commit a365768
Show file tree

Hide file tree

Showing 2 changed files with 482 additions and 4 deletions.
diff --git a/Reports/Permit_data.R b/Reports/Permit_data.R
@@ -62,7 +62,7 @@ create_permit_frame = function(new_df) {
 # ============================================================================
 
 datafile = "Rodents/Portal_rodent.csv"
-year = 2022
+year = 2023
 #read in raw data
 rawdata = read.csv(datafile,head=T,sep=',',na.strings=' ',as.is=T)
 
@@ -72,11 +72,11 @@ periods <- dplyr::select(thisyear, period)
 periods <-  dplyr::distinct(periods)
 
 ra_initials <- data.frame(
-  inits = c("GMY","PKTD", "RMD"),
-  names = c("Yenni, Glenda","Dumandan, Patricia", "Diaz, Renata")
+  inits = c("GMY","PKTD"),
+  names = c("Yenni, Glenda","Dumandan, Patricia")
 )
 
-periods$inits <- c("PKTD","PKTD","PKTD", "GMY", "RMD","PKTD","PKTD", "PKTD", "PKTD", "PKTD", "PKTD", "PKTD", "PKTD")
+periods$inits <- c("PKTD","PKTD", "PKTD","PKTD","PKTD", "PKTD", "PKTD", "PKTD", "PKTD", "PKTD", "PKTD")
 
 periods <- dplyr::left_join(periods, ra_initials, by = "inits")