#email reminder app
#read google doc
library (googlesheets)
gs_auth()
PIlist = gs_url ("https://docs.google.com/spreadsheets/d/1jVBj0RBZ4zFwtL1dcy-D9UA_QRvkGhX8s5_sWI8toEk/edit#gid=390395480")
data= googlesheets::gs_read_csv(PIlist, skip =2)
remind = data[data$`Data Survey`== "0",]
text2= ""
for (i in c(1:15)) {
text =paste0(" ",i,remind$`Last name`[i]," ")
text2 = paste0 (text2, text, collapse = "
")
}
fileConn<-file("remind.html")
writeLines(c(text2), fileConn)
close(fileConn)