clean states

.gitignore

@@ -1,7 +1 @@
-.Rproj.user
-.Rhistory
-.RData
-.Ruserdata
-.Rproj
-.httr-oauth
-.Rprofile
+/annex/objects/MD5-s83--de5333a8ca2fb9e1d521ef1b3ecbf73a

gin-foldertemplate/foldertemplate_v1.0.zip

@@ -0,0 +1 @@
+/annex/objects/MD5-s20482--e321f1a658a4ca3f076dbc4bbe62298c

gin-foldertemplate/v2_7_top/01_project_management/data_management_plan.txt

@@ -0,0 +1 @@
+/annex/objects/MD5-s0--d41d8cd98f00b204e9800998ecf8427e

gin-foldertemplate/v2_7_top/02_material_methods/experiments_matmeth.csv

@@ -0,0 +1 @@
+/annex/objects/MD5-s0--d41d8cd98f00b204e9800998ecf8427e

gin-foldertemplate/v2_7_top/02_material_methods/keyreagenttable.csv

@@ -0,0 +1 @@
+/annex/objects/MD5-s0--d41d8cd98f00b204e9800998ecf8427e

gin-foldertemplate/v2_7_top/License

@@ -0,0 +1 @@
+/annex/objects/MD5-s0--d41d8cd98f00b204e9800998ecf8427e

gin-foldertemplate/v2_7_top/Plan.md

@@ -0,0 +1 @@
+/annex/objects/MD5-s574--6f85f6742b9da7957f9842c025825798

gin-foldertemplate/v2_7_top/README

@@ -0,0 +1 @@
+/annex/objects/MD5-s1898--8355e5cfb62e539efb8d880ba1bb6468

gin-foldertemplate/v2_7_top/datacite

@@ -0,0 +1 @@
+/annex/objects/MD5-s0--d41d8cd98f00b204e9800998ecf8427e

gin-foldertemplate/v2_7_top/sync

@@ -0,0 +1 @@
+/annex/objects/MD5-s990--4041e790abe9dbf99db9d776c0615214

gin-foldertemplate/v2_7_top/sync.bat

@@ -0,0 +1 @@
+/annex/objects/MD5-s652--2ffb3da31b90aa914658274fbbf91c3d

gin-foldertemplate/v2_7_top/template_style

@@ -0,0 +1 @@
+/annex/objects/MD5-s0--d41d8cd98f00b204e9800998ecf8427e

remind.html

@@ -0,0 +1 @@
+/annex/objects/MD5-s60377--dbc283d72fef2a7cf41c6ddb2423ed9f

reminders.R

@@ -1,161 +1 @@
-# #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>")
-# }
-# 
-# 
-# 
-# 
-
-
-# 2 image and orcid
-library (readr)
-library(dplyr)
-
-newlist<-  read_csv("~/Documents/Seafile/SFB1315info/newlistfromgoogle.csv")
-
-peoplelist_respori <- read_delim("~/Documents/Seafile/SFB1315info/allpeople.csv", 
-                                         "\t", escape_double = FALSE, trim_ws = TRUE)
-
-peoplelist= right_join( peoplelist_respori, newlist, by=c("email"= "Email"))
-
-peoplelist_sub = peoplelist[!is.na(peoplelist$SFBgroup),]
-peoplelist_sub$project_responsible[is.na(peoplelist_sub$project_responsible)] <- "FALSE"
-
-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."
-  }
-
-  emails = paste0(peoplelist_group$email, collapse = ",")
-  text_mail = paste0("
-
-The website will soon go live, I extended the 
-
-", 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))
-               ," '> ",
-               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>")
-#   
-#   
-# }
-
-
-text2 = ""
-peoplelist_resp <- subset(peoplelist_sub, peoplelist_sub$project_responsible == TRUE)
-for (group in groups){
-  #group = "Z"
-  footer = ""
-  peoplelist_group <- data.frame()
-  
-  
-  
-  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("
-
-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," .
-
-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/
-
-", 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))
-               ," '> ",
-               group," </a>")
-  
-  text2 = paste0 (text2, text, sep = "<br>")
-  
-  
-}
-
-
-fileConn<-file("remind.html")
-writeLines(c(text2), fileConn)
-close(fileConn)
-
+/annex/objects/MD5-s8059--61aaebc0f8e42af79fce58b8c89f4100

testgin.Rproj

@@ -0,0 +1 @@
+/annex/objects/MD5-s205--c8d3f84a410f46d4d8b03a268e313e35

trainingvideos/images/presentation-why_v2.key

@@ -1 +1 @@
-/annex/objects/MD5-s73525872--2cd37ae241d3450d18da55aece20eb0d
+/annex/objects/MD5-s73847136--e5621094131ad1cadfa22fa8ef8897f8