Browse Source

work on email sending

colombj 4 years ago
parent
commit
940f65ef15
3 changed files with 59 additions and 19 deletions
  1. 19 19
      neurosfb_no1315.tsv
  2. 1 0
      orcidwork.R
  3. 39 0
      reminders.R

+ 19 - 19
neurosfb_no1315.tsv

@@ -1,19 +1,19 @@
-"SFBnumber"	"http_address"	"topic"	"spokesman_email"	"spokesman_lastname"	"spokesman_firstname"	"teaching_email"	"teaching_name"	"contact1"	"contactsurf"	"comment"	"datamanager_email"
-"SFB 1280"	"https://sfb1280.ruhr-uni-bochum.de/arbeitsgruppe/mitglieder/"	"Extinktionslernen"	"Onur.Guentuerkuen@rub.de"	"Guentuerkue"	"Onur"	"SFB1280@rub.de"	"SFB coordinator"	"y"	"y"	"NA"	"NA"
-"sfb 1158"	"https://www.sfb1158.de#"	"Chronic Pain"	"rohini.kuner@pharma.uni-heidelberg.de"	"Kuner"	"Rohini"	"rebecca.mease@physiologie.uni-heidelberg.de"	"Prof. Mease"	"y"	"y"	"NA"	"NA"
-"SFB 874"	"http://www.ruhr-uni-bochum.de/sfb874/archive/archiv_de.html"	"sensory processes"	"dmv-igsn@ruhr-uni-bochum.de"	"Manahan-Vaughan"	"Denise"	"sfb874@ruhr-uni-bochum.de"	"Dr. Dannenberg"	"y"	"y"	"NA"	"NA"
-"SFB-TRR 58"	"https://www.medizin.uni-muenster.de/sfbtrr58/"	"fear disorder"	"papechris@ukmuenster.de"	"Pape"	"Hans-Christian"	"aborgman@uni-muenster.de"	"Mx Borgman"	"y"	"y"	"NA"	"NA"
-"SFB 1134"	"http://sfb1134.uni-heidelberg.de/people/"	"functional ensembles (network)"	"andreas.draguhn@physiologie.uni-heidelberg.de"	"Draguhn"	"Andreas"	"susanne.bechtel@sfb1134.de"	"Mx Bechtel"	"y"	"y"	"NA"	"NA"
-"SFB 1089"	"https://sfb1089.de/people/chair-vice-chair/"	"‘Synaptic Micronetworks in Health and Disease"	"heinz.beck@ukb.uni-bonn.de"	"Beck"	"Heinz"	"info@sfb1089.de"	"Mx Walch"	"y"	"y"	"NA"	"NA"
-"SFB 779"	"http://www.sfb779.de/"	"motication and behavior"	"frank.ohl@lin-magdeburg.de"	"Ohl"	"Frank W."	"achim.engelhorn@lin-magdeburg.de"	"Dr. Engelhorn"	"y"	"y"	"forward to bertram gerber"	"NA"
-"SFB 870"	"https://www.sfb870.mcn.uni-muenchen.de/about/index.html"	"Assembly and Function of Neuronal Circuits"	"neurobio@lmu.de"	"Grothe"	"Benedikt"	"yamei.li@bio.lmu.de"	"Mx Li"	"y"	"y"	"NA"	"NA"
-"SFB 936"	"http://sfb936.net/"	"multisite communication in the brain"	"ak.engel@uke.de"	"Engel"	"Andreas K."	"s.trautmann-lengsfeld@uke.de,"	"Dr. Trautmann-Lengsfeld"	"y"	"y"	"NA"	"NA"
-"SFB 1080"	"https://crc1080.com/"	"Molecular and Cellular Mechanisms of Neural Homeostasis"	"acker-palmer@bio.uni-frankfurt.de"	"Acker-Palmer"	"Amparo Acker-Palmer"	"question@crc1080.com"	"Mx Kay"	"y"	"y"	"NA"	"NA"
-"SFB 1233"	"https://uni-tuebingen.de/forschung/forschungsschwerpunkte/sonderforschungsbereiche/sfb-1233/"	"robust vision"	"matthias.bethge@uni-tuebingen.de"	"Bethge"	"Matthias"	"judith.lam@uni-tuebingen.de"	"Dr. Lam"	"y"	"y"	"NA"	"NA"
-"SFB 940"	"https://tu-dresden.de/bereichsuebergreifendes/sfb940/"	"VOLITION AND COGNITIVE CONTROL"	"thomas.goschke@tu-dresden.de"	"Goschke"	"Thomas"	"alexander.strobel@tu-dresden.de"	"Prof.  Strobel"	"y"	"y"	"NA"	"NA"
-"SFB 1193"	"https://crc1193.de"	"Neurobiologie der Resilienz gegenüber stressinduzierter psychischer Dysfunktion: Mechanismen verstehen und Prävention fördern"	"blutz@uni-mainz.de"	"Lutz"	"Beat"	"szurborg@uni-mainz.de"	"Dr. Zurborg"	"y"	"y"	"NA"	"NA"
-"SFB 889"	"http://www.sfb889.uni-goettingen.de/"	"Zelluläre Mechanismen Sensorischer Verarbeitung"	"tmoser@gwdg.de"	"Moser"	"Tobias"	"jneef@gwdg.de"	"Dr. Neef"	"y"	"y"	"NA"	"NA"
-"SFB 1286"	"https://www.sfb1286.de/"	"Quantitative Synaptologie:"	"srizzol@gwdg.de"	"Rizzoli"	"Silvio O."	"anita-karina.jaehnke@med.uni-goettingen.de"	"Mx Jaehnke"	"y"	"y"	"NA"	"NA"
-"TRR 135"	"http://www.allpsych.uni-giessen.de/sfb/"	"Kardinale Mechanismen der Wahrnehmung: Prädiktion, Bewertung, Kategorisierung:"	"gegenfurtner@uni-giessen.de"	"Gegenfurtner"	"Karl"	"can.telli@psychol.uni-giessen.de"	"Mr. Can Telli"	"y"	"y"	"human only"	"thorsten.arendt@uni-marburg.de"
-"TRR 167"	"https://www.sfb-trr167.uni-freiburg.de/"	"Entwicklung, Funktion und Potential von myeloiden Zellen im zentralen Nervensystem (NeuroMac):"	"marco.prinz@uniklinik-freiburg.de"	"Prinz"	"Marco"	"neuromac-school@charite.de"	"Dr. Böttcher"	"y"	"y"	"NA"	"NA"
-"TRR 169"	"https://www.crossmodal-learning.org"	": Crossmodales Lernen: Adaptivität, Prädiktion und Interaktion:"	"zhang@informatik.uni-hamburg.de"	"Zhang"	"Jianwei"	"a.maye@uke.de"	"Dr. Maye"	"y"	"y"	"NA"	"NA"
+"SFBnumber"	"http_address"	"phone"	"topic"	"spokesman_email"	"spokesman_lastname"	"spokesman_firstname"	"teaching_email"	"teaching_name"	"contact1"	"contactsurf"	"comment"	"datamanager_email"	"otheremail"
+"SFB 1280"	"https://sfb1280.ruhr-uni-bochum.de/arbeitsgruppe/mitglieder/"	"0234 3224634"	"Extinktionslernen"	"Onur.Guentuerkuen@rub.de"	"Guentuerkue"	"Onur"	"SFB1280@rub.de"	"SFB coordinator"	"y"	"y"	"NA"	"NA"	"extinction-learning@rub.de"
+"sfb 1158"	"https://www.sfb1158.de#"	"49-6221-5416602"	"Chronic Pain"	"rohini.kuner@pharma.uni-heidelberg.de"	"Kuner"	"Rohini"	"rebecca.mease@physiologie.uni-heidelberg.de"	"Prof. Mease"	"y"	"y"	"NA"	"NA"	
+"SFB 874"	"http://www.ruhr-uni-bochum.de/sfb874/archive/archiv_de.html"	" sarah?+49 - (0)234 - 32 – 23750"	"sensory processes"	"dmv-igsn@ruhr-uni-bochum.de"	"Manahan-Vaughan"	"Denise"	"sfb874@ruhr-uni-bochum.de"	"Dr. Dannenberg"	"y"	"y"	"NA"	"NA"	
+"SFB-TRR 58"	"https://www.medizin.uni-muenster.de/sfbtrr58/"	"0049 251 835 5530"	"fear disorder"	"papechris@ukmuenster.de"	"Pape"	"Hans-Christian"	"aborgman@uni-muenster.de"	"Mx Borgman"	"y"	"y"	"NA"	"NA"	
+"SFB 1134"	"http://sfb1134.uni-heidelberg.de/people/"	"ending"	"functional ensembles (network)"	"andreas.draguhn@physiologie.uni-heidelberg.de"	"Draguhn"	"Andreas"	"susanne.bechtel@sfb1134.de"	"Mx Bechtel"	"y"	"y"	"NA"	"NA"	
+"SFB 1089"	"https://sfb1089.de/people/chair-vice-chair/"	"49-228-6885-215"	"‘Synaptic Micronetworks in Health and Disease"	"heinz.beck@ukb.uni-bonn.de"	"Beck"	"Heinz"	"info@sfb1089.de"	"Mx Walch"	"y"	"y"	"NA"	"NA"	
+"SFB 779"	"http://www.sfb779.de/"	"(0391) 6263-91331"	"motication and behavior"	"frank.ohl@lin-magdeburg.de"	"Ohl"	"Frank W."	"achim.engelhorn@lin-magdeburg.de"	"Dr. Engelhorn"	"y"	"y"	"forward to bertram gerber"	"NA"	
+"SFB 870"	"https://www.sfb870.mcn.uni-muenchen.de/about/index.html"	"+49 (0)89 / 2180- 74166"	"Assembly and Function of Neuronal Circuits"	"neurobio@lmu.de"	"Grothe"	"Benedikt"	"yamei.li@bio.lmu.de"	"Mx Li"	"y"	"y"	"NA"	"NA"	
+"SFB 936"	"http://sfb936.net/"	"+49 (0)40-7410-57644 (may not be the one, ended?)"	"multisite communication in the brain"	"ak.engel@uke.de"	"Engel"	"Andreas K."	"s.trautmann-lengsfeld@uke.de,"	"Dr. Trautmann-Lengsfeld"	"y"	"y"	"NA"	"NA"	
+"SFB 1080"	"https://crc1080.com/"	"+49(0)69-798-42536"	"Molecular and Cellular Mechanisms of Neural Homeostasis"	"acker-palmer@bio.uni-frankfurt.de"	"Acker-Palmer"	"Amparo Acker-Palmer"	"question@crc1080.com"	"Mx Kay"	"y"	"y"	"NA"	"NA"	
+"SFB 1233"	"https://uni-tuebingen.de/forschung/forschungsschwerpunkte/sonderforschungsbereiche/sfb-1233/"	"+49 7071 29 70866"	"robust vision"	"matthias.bethge@uni-tuebingen.de"	"Bethge"	"Matthias"	"judith.lam@uni-tuebingen.de"	"Dr. Lam"	"y"	"y"	"NA"	"NA"	
+"SFB 940"	"https://tu-dresden.de/bereichsuebergreifendes/sfb940/"	"+49 (0)351 463-32528 training group"	"VOLITION AND COGNITIVE CONTROL"	"thomas.goschke@tu-dresden.de"	"Goschke"	"Thomas"	"alexander.strobel@tu-dresden.de"	"Prof.  Strobel"	"y"	"y"	"NA"	"NA"	
+"SFB 1193"	"https://crc1193.de"	"+49 (0)6131 39 29818"	"Neurobiologie der Resilienz gegenüber stressinduzierter psychischer Dysfunktion: Mechanismen verstehen und Prävention fördern"	"blutz@uni-mainz.de"	"Lutz"	"Beat"	"szurborg@uni-mainz.de"	"Dr. Zurborg"	"y"	"y"	"NA"	"NA"	
+"SFB 889"	"http://www.sfb889.uni-goettingen.de/"	"Tel.: +49-(0)551-39-61949 "	"Zelluläre Mechanismen Sensorischer Verarbeitung"	"tmoser@gwdg.de"	"Moser"	"Tobias"	"jneef@gwdg.de"	"Dr. Neef"	"y"	"y"	"NA"	"NA"	
+"SFB 1286"	"https://www.sfb1286.de/"	"+49 (0)551 39 5911"	"Quantitative Synaptologie:"	"srizzol@gwdg.de"	"Rizzoli"	"Silvio O."	"anita-karina.jaehnke@med.uni-goettingen.de"	"Mx Jaehnke"	"y"	"y"	"NA"	"NA"	
+"TRR 135"	"http://www.allpsych.uni-giessen.de/sfb/"	"+49 (0)641 99 26 114"	"Kardinale Mechanismen der Wahrnehmung: Prädiktion, Bewertung, Kategorisierung:"	"gegenfurtner@uni-giessen.de"	"Gegenfurtner"	"Karl"	"can.telli@psychol.uni-giessen.de"	"Mr. Can Telli"	"y"	"y"	"human only"	"thorsten.arendt@uni-marburg.de"	
+"TRR 167"	"https://www.sfb-trr167.uni-freiburg.de/"	"+49 (0)761 / 270-51070"	"Entwicklung, Funktion und Potential von myeloiden Zellen im zentralen Nervensystem (NeuroMac):"	"marco.prinz@uniklinik-freiburg.de"	"Prinz"	"Marco"	"neuromac-school@charite.de"	"Dr. Böttcher"	"y"	"y"	"NA"	"NA"	
+"TRR 169"	"https://www.crossmodal-learning.org"	"Tel. +49 40 7410 55352 teaching"	": Crossmodales Lernen: Adaptivität, Prädiktion und Interaktion:"	"zhang@informatik.uni-hamburg.de"	"Zhang"	"Jianwei"	"a.maye@uke.de"	"Dr. Maye"	"y"	"y"	"NA"	"NA"	

+ 1 - 0
orcidwork.R

@@ -0,0 +1 @@
+rorcid::orcid_search(grant_number = 327654276)

+ 39 - 0
reminders.R

@@ -1,5 +1,7 @@
 #email reminder app
 
+#1 survey analysis
+
 #read google doc
 
 library (googlesheets)
@@ -24,4 +26,41 @@ fileConn<-file("remind.html")
 writeLines(c(text2), fileConn)
 close(fileConn)
 
+# 2 image and orcid
+
+peoplelist <- read_delim("~/Documents/Seafile/SFB1315info/allpeople.csv", 
+                                         "\t", escape_double = FALSE, trim_ws = TRUE)
+
+peoplelist_sub = peoplelist[!is.na(peoplelist$SFBgroup),]
+
+groups = unique(peoplelist_sub$SFBgroup)
+
+text2 = ""
+for (group in groups){
+  #group = "Z"
+  peoplelist_group <- peoplelist_sub[peoplelist_sub$SFBgroup == group,]
+  
+  emails = paste0(peoplelist_group$email, collapse = ",")
+  text_mail = "
+  
+As explained in my previous email, we want to present each project on the sfb1315-output.de website. 
+I think it would be good 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.
+
+Best regards,
+"
+  text =paste0("<a href='mailto:", emails,
+               "?subject=SFB1315-output.de&body=Dear members of project ",group,",", gsub('&NewLine;','%0D%0A',textutils::HTMLencode(text_mail))
+               ," '> ",
+               group," </a>")
+  
+  text2 = paste0 (text2, text, sep = "<br>")
+  
+  
+}
+
+fileConn<-file("remind.html")
+writeLines(c(text2), fileConn)
+close(fileConn)