|
|
@@ -1,58 +1,149 @@
|
|
|
-#email reminder app
|
|
|
+# #email reminder app
|
|
|
+#
|
|
|
+# #1 survey analysis
|
|
|
+#
|
|
|
+# #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("<a href='mailto:", remind$Email[i], "?subject=SFB1315-data&body=Dear Prof. ",remind$`Last name`[i],", '> ",i,remind$`Last name`[i]," </a>")
|
|
|
+# text2 = paste0 (text2, text, collapse = "<br>")
|
|
|
+# }
|
|
|
+#
|
|
|
+#
|
|
|
+#
|
|
|
+#
|
|
|
|
|
|
-#1 survey analysis
|
|
|
|
|
|
-#read google doc
|
|
|
+# 2 image and orcid
|
|
|
+library (readr)
|
|
|
+library(dplyr)
|
|
|
|
|
|
-library (googlesheets)
|
|
|
-gs_auth()
|
|
|
+newlist<- read_csv("~/Documents/Seafile/SFB1315info/newlistfromgoogle.csv")
|
|
|
|
|
|
-PIlist = gs_url ("https://docs.google.com/spreadsheets/d/1jVBj0RBZ4zFwtL1dcy-D9UA_QRvkGhX8s5_sWI8toEk/edit#gid=390395480")
|
|
|
+peoplelist_respori <- read_delim("~/Documents/Seafile/SFB1315info/allpeople.csv",
|
|
|
+ "\t", escape_double = FALSE, trim_ws = TRUE)
|
|
|
|
|
|
-data= googlesheets::gs_read_csv(PIlist, skip =2)
|
|
|
+peoplelist= right_join( peoplelist_respori, newlist, by=c("email"= "Email"))
|
|
|
|
|
|
-remind = data[data$`Data Survey`== "0",]
|
|
|
+peoplelist_sub = peoplelist[!is.na(peoplelist$SFBgroup),]
|
|
|
+peoplelist_sub$project_responsible[is.na(peoplelist_sub$project_responsible)] <- "FALSE"
|
|
|
|
|
|
-text2= ""
|
|
|
-for (i in c(1:15)) {
|
|
|
- text =paste0("<a href='mailto:", remind$Email[i], "?subject=SFB1315-data&body=Dear Prof. ",remind$`Last name`[i],", '> ",i,remind$`Last name`[i]," </a>")
|
|
|
- text2 = paste0 (text2, text, collapse = "<br>")
|
|
|
-}
|
|
|
+groups = unique(peoplelist_sub$SFBgroup)
|
|
|
|
|
|
|
|
|
+## this one is sent only to the responsible person
|
|
|
|
|
|
+text2 = ""
|
|
|
+peoplelist_resp <- subset(peoplelist_sub, peoplelist_sub$project_responsible == TRUE)
|
|
|
+for (group in groups){
|
|
|
+ #group = "Z"
|
|
|
+ footer = ""
|
|
|
+ peoplelist_group <- peoplelist_resp[peoplelist_resp$SFBgroup == group,]
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+ if (nrow(peoplelist_group) == 0){
|
|
|
+ #peoplelist_group <- peoplelist_sub[peoplelist_sub$SFBgroup == group,]
|
|
|
+ peoplelist_group <- peoplelist_sub %>% filter(grepl (group, Project))
|
|
|
+ footer= "PS: I would only need to send this email to one person, if you indicate a person of contact for the creation of the project page for your group."
|
|
|
+ }
|
|
|
|
|
|
-fileConn<-file("remind.html")
|
|
|
-writeLines(c(text2), fileConn)
|
|
|
-close(fileConn)
|
|
|
+ emails = paste0(peoplelist_group$email, collapse = ",")
|
|
|
+ text_mail = paste0("
|
|
|
|
|
|
-# 2 image and orcid
|
|
|
+The website will soon go live, I extended the
|
|
|
|
|
|
-peoplelist <- read_delim("~/Documents/Seafile/SFB1315info/allpeople.csv",
|
|
|
- "\t", escape_double = FALSE, trim_ws = TRUE)
|
|
|
+", footer)
|
|
|
|
|
|
-peoplelist_sub = peoplelist[!is.na(peoplelist$SFBgroup),]
|
|
|
+ text =paste0("<a href='mailto:", emails,
|
|
|
+ "?subject=making SFB1315-output.de awesome&body=Dear members of project ",group,",", gsub('
','%0D%0A',textutils::HTMLencode(text_mail))
|
|
|
+ ," '> ",
|
|
|
+ group," </a>")
|
|
|
+
|
|
|
+ text2 = paste0 (text2, text, sep = "<br>")
|
|
|
+
|
|
|
+
|
|
|
+}
|
|
|
+
|
|
|
+# ## this one sent to everyone !
|
|
|
+# text2 = ""
|
|
|
+# peoplelist_resp <- peoplelist_sub
|
|
|
+# for (group in groups){
|
|
|
+# #group = "Z"
|
|
|
+# footer = "Best regards,"
|
|
|
+# peoplelist_group <- peoplelist_resp[peoplelist_resp$SFBgroup == group,]
|
|
|
+# if (nrow(peoplelist_group) == 0){
|
|
|
+# peoplelist_group <- peoplelist_sub[peoplelist_sub$SFBgroup == group,]
|
|
|
+# footer= "Best regards,"
|
|
|
+# }
|
|
|
+#
|
|
|
+# emails = paste0(peoplelist_group$email, collapse = ",")
|
|
|
+# text_mail = paste0("
|
|
|
+#
|
|
|
+# Please visit https://deploy-preview-3--adoring-tereshkova-f0b719.netlify.app/project/",group," .
|
|
|
+#
|
|
|
+# This page will present you and your project, including (after login) the SmartFigures related to your project. This new version of the website will go live on JUNE 1st, contact me if you are not happy with the project page or the personal page design.
|
|
|
+#
|
|
|
+# The new version of the smartfigure gallery went live this week. You are now able to create your own group (for example for your lab), and each figure can be shared with different groups.
|
|
|
+# I will be creating new accounts for PIs (I did it already for phds and postdocs last year) with access to the 'sfb1315 Members' sharing group. You will be able to sign in with this email address, the default password is 'resultgallery' (if you do not have access by tomorrow, drop me an email).
|
|
|
+#
|
|
|
+#
|
|
|
+# Walkthrough to add content for:
|
|
|
+# - your project smartfigure gallery: https://www.sfb1315-output.de/post/smartfigure-preview/
|
|
|
+# - your personal page: https://www.sfb1315-output.de/post/using-orcid/
|
|
|
+#
|
|
|
+# ", footer)
|
|
|
+#
|
|
|
+# text =paste0("<a href='mailto:", emails,
|
|
|
+# "?subject=DEADLINE, awesome SFB1315-output.de in June&body=Dear members of project ",group,",", gsub('
','%0D%0A',textutils::HTMLencode(text_mail))
|
|
|
+# ," '> ",
|
|
|
+# group," </a>")
|
|
|
+#
|
|
|
+# text2 = paste0 (text2, text, sep = "<br>")
|
|
|
+#
|
|
|
+#
|
|
|
+# }
|
|
|
|
|
|
-groups = unique(peoplelist_sub$SFBgroup)
|
|
|
|
|
|
text2 = ""
|
|
|
+peoplelist_resp <- subset(peoplelist_sub, peoplelist_sub$project_responsible == TRUE)
|
|
|
for (group in groups){
|
|
|
#group = "Z"
|
|
|
- peoplelist_group <- peoplelist_sub[peoplelist_sub$SFBgroup == group,]
|
|
|
+ footer = ""
|
|
|
+ peoplelist_group <- data.frame()
|
|
|
+
|
|
|
|
|
|
- emails = paste0(peoplelist_group$email, collapse = ",")
|
|
|
- text_mail = "
|
|
|
|
|
|
-As explained in my previous email, we want to present each project and each researcher on the sfb1315-output.de website.
|
|
|
+ if (nrow(peoplelist_group) == 0){
|
|
|
+ #peoplelist_group <- peoplelist_sub[peoplelist_sub$SFBgroup == group,]
|
|
|
+ peoplelist_group <- peoplelist_sub %>% filter(grepl (group, Project))
|
|
|
+ #footer= "PS: I would only need to send this email to one person, if you indicate a person of contact for the creation of the project page for your group."
|
|
|
+ }
|
|
|
+
|
|
|
+ emails = paste0(peoplelist_group$email, collapse = ",")
|
|
|
+ text_mail = paste0("
|
|
|
|
|
|
-It would be more efficient if you could indicate one person of contact for the creation of the project page, so that my future emails do not go to all of you.
|
|
|
-(Note that if you have no time to create a figure with Thomas Splettstoesser before the website launch, we will need to use another image as a thumbnail.)
|
|
|
+Please accept my apologies for having used an outdated personel list.
|
|
|
+I updated the website according to the latest spreadsheet curated by Marylu : https://deploy-preview-3--adoring-tereshkova-f0b719.netlify.app/project/",group," .
|
|
|
|
|
|
-For the personal pages, I need you to get and update your orcid profile (see https://www.sfb1315-output.de/post/using-orcid/).
|
|
|
+The website lauch was reported to give you time to check it, maybe you want to sent me a figure for the project thumbnail.
|
|
|
|
|
|
+NB you can add content for:
|
|
|
+- your project smartfigure gallery: https://www.sfb1315-output.de/post/smartfigure-preview/
|
|
|
+- your personal page (including image): https://www.sfb1315-output.de/post/using-orcid/
|
|
|
|
|
|
-Best regards and stay safe,
|
|
|
-"
|
|
|
+", footer)
|
|
|
+
|
|
|
text =paste0("<a href='mailto:", emails,
|
|
|
"?subject=making SFB1315-output.de awesome&body=Dear members of project ",group,",", gsub('
','%0D%0A',textutils::HTMLencode(text_mail))
|
|
|
," '> ",
|
|
|
@@ -63,6 +154,7 @@ Best regards and stay safe,
|
|
|
|
|
|
}
|
|
|
|
|
|
+
|
|
|
fileConn<-file("remind.html")
|
|
|
writeLines(c(text2), fileConn)
|
|
|
close(fileConn)
|
