Update steps with scripts

Author: Phillip Doehle

paste_attendees.sh

@@ -0,0 +1,6 @@
+# Name: paste_attendees.sh
+# Usage: paste_attendees.sh [cleaned attendee .csv file]
+# Description: Make a list from the cleaned registrants
+#              file for the Google forms attendance form.
+
+cat "$1" | cut -d, -f2,3 | tail -n +2 | sed "s/\,/\ /g" | sort

take_attend.R

@@ -0,0 +1,21 @@
+library("tidyverse")
+library("stringr")
+
+# Attendee reports
+attendees <- read_csv("./2018-01-08.csv")
+
+# Import daily attendance files
+att_days <- c("./2018-01-08_attendance.csv", "./2018-01-09_attendance.csv")
+daily_att <- lapply(att_days, read_csv)
+daily_att <- daily_att %>% 
+  lapply(function(x) unique(x$Name))
+
+# Check whether or not a participant
+# was present on a given day
+# and add the respective attendance column
+attendees <- attendees %>% 
+  mutate(full_name = paste(first, last, sep = " "))
+
+
+#attendees <- attendees %>% 
+#  mutate("2018-01-09_attendance" = ifelse(full_name %in% day02, T, F))