Browse Source

new emails + minutes

julien colomb 4 years ago
parent
commit
da6a099c81

minutes/2019109095_thomas.md → minutes/2019-109095_thomas.md


minutes/20191202_NFDIworkshop_magdeburg.md → minutes/2019-1202_NFDIworkshop_magdeburg.md


+ 36 - 0
minutes/2020-05-01_hanna_thomas.md

@@ -0,0 +1,36 @@
+# update from sdash
+
+
+
+## website update 
+
+wait for next version and people input to :
+- reintroduce sdahs link
+- project pages
+- personal pages (based on orcid info)
+
+## graphical design
+
+- project page smartfigure: no commments, but just links ?
+- make it look good in project pages: smaller banner (up, side)
+
+## author list
+
+- shiny app : what output for smartfigure ? not yet decided.
+- working on yaml, as pandoc scholar should work it out to get jatsxml,doc, pdf, html
+
+## public dashboard
+
+- not urgent, but we need start thinking about it.
+- choosing license, or just one "publish under CC-BY".
+- what about data in the smartfigure:
+  - give a warning ?
+  - ask specifically: different license for data, make it public.
+  - **give a warning at data upload?**
+  
+##  non-own SF
+
+- one can change links (need to change that?)
+- a way to propose tags and links ?
+
+  

File diff suppressed because it is too large
+ 456 - 0
minutes/2020-06-08-hanna.html


+ 13 - 0
minutes/2020-06-17-matthew-resultofthemonth.md

@@ -0,0 +1,13 @@
+# Result of the month
+
+Name: Highlighted results
+Research highlights
+
+
+get one image per paper published in 2020, get it on the smartfigure gallery
+
+
+rotating once a day, once a week 
+
+- suzuki paper has his sf + highlight on website
+- email send to elsevier

+ 2 - 2
orcidwork.R

@@ -26,12 +26,12 @@ url=b$`researcher-urls`$`researcher-url`$url.value
 
 
 for (i in c(1: nrow(orcidlist))){
-  a= as.character("0000-0002-3127-5520")
+  a= as.character("0000-0001-5307-1564")
   # a= as.character(orcidlist[i])
   b=rorcid::orcid_id(a)[[1]]
   
   ## specific
-  code = tolower(paste0(b$name$`given-names`, "-", b$name$`family-name`))
+  code = gsub(" ", "-",tolower(paste0(b$name$`given-names`, "-", b$name$`family-name`)))
   
   ## from external sfb list
   role= people_sfb$role_group[people_sfb$people_code == code]

+ 122 - 30
reminders.R

@@ -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('&NewLine;','%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('&NewLine;','%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('&NewLine;','%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)

+ 1 - 1
trainingvideos/images/presentation-why_v2.key

@@ -1 +1 @@
-/annex/objects/MD5-s73762345--ebaa2332349172acdbce5d9b11f18129
+/annex/objects/MD5-s73525872--2cd37ae241d3450d18da55aece20eb0d