|
@@ -1,7 +1,8 @@
|
|
|
library (googlesheets4)
|
|
|
-gs_auth()
|
|
|
+library(dplyr)
|
|
|
+#gs_auth()
|
|
|
#
|
|
|
-template_f = gs_url ("https://docs.google.com/spreadsheets/d/1rrl2QcBIQNIQ-D5ugH7FuaiVckItAQxRVlW-Jgb9sdo/edit?ts=5ee10875#gid=1035048464")
|
|
|
+#template_f = gs_url ("https://docs.google.com/spreadsheets/d/1rrl2QcBIQNIQ-D5ugH7FuaiVckItAQxRVlW-Jgb9sdo/edit?ts=5ee10875#gid=1035048464")
|
|
|
|
|
|
#
|
|
|
# data= googlesheets::gs_read_csv(PIlist, skip =2)
|
|
@@ -15,21 +16,37 @@ template_data <- read_sheet("https://docs.google.com/spreadsheets/d/1rrl2QcBIQNI
|
|
|
createtemplate <- function(dirname ="template1", template_data) {
|
|
|
dir.create(dirname)
|
|
|
setwd(dirname)
|
|
|
- template_dataf = template_data [(template_data$create != "NULL"),]
|
|
|
+ template_dataf = template_data [(template_data$create != "NULL"),] %>% filter (type == "folder")
|
|
|
for (i in c(nrow(template_dataf):1)){
|
|
|
if (nchar(template_dataf$create[i])<2) {
|
|
|
dir.create(template_dataf$alternative_name[i])
|
|
|
file.create(paste0(template_dataf$alternative_name[i], "/gitdir"))
|
|
|
- file.rename(template_dataf$alternative_name[i], paste0 ("0",template_dataf$create[i],"_",template_dataf$alternative_name[i]))
|
|
|
+ #file.rename(template_dataf$alternative_name[i], paste0 ("0",template_dataf$create[i],"_",template_dataf$alternative_name[i]))
|
|
|
} else {
|
|
|
dir.create(paste0(template_dataf$create[i], "/",template_dataf$alternative_name[i]), recursive = TRUE)
|
|
|
file.create(paste0(template_dataf$create[i], "/",template_dataf$alternative_name[i], "/gitdir"))
|
|
|
- }
|
|
|
+ }
|
|
|
+ }
|
|
|
+ template_datafile = template_data [(template_data$create != "NULL"),] %>% filter (type == "file")
|
|
|
+ for (i in c(nrow(template_datafile):1)){
|
|
|
+ if (template_datafile$create[i] == "parent") {
|
|
|
+ file.create(template_datafile$alternative_name[i])
|
|
|
+ } else {
|
|
|
+ file.create(paste0(template_datafile$create[i], "/",template_datafile$alternative_name[i]))
|
|
|
+ }
|
|
|
+ #rename folder with numbers
|
|
|
+ for (i in c(nrow(template_dataf):1)){
|
|
|
+ if (nchar(template_dataf$create[i])<2) {
|
|
|
+ file.rename(template_dataf$alternative_name[i], paste0 ("0",template_dataf$create[i],"_",template_dataf$alternative_name[i]))
|
|
|
+ }
|
|
|
+ }
|
|
|
+
|
|
|
}
|
|
|
setwd("../")
|
|
|
}
|
|
|
|
|
|
-#setwd("20_deriveddata")
|
|
|
+setwd("gin-foldertemplate")
|
|
|
+
|
|
|
template_data$create = as.character(template_data$upfolder_2)
|
|
|
createtemplate(dirname ="template1",template_data)
|
|
|
|
|
@@ -38,3 +55,5 @@ createtemplate(dirname ="template_ori",template_data)
|
|
|
template_data$create = as.character(template_data$upfolder_3)
|
|
|
createtemplate(dirname ="template_3",template_data)
|
|
|
|
|
|
+template_data$create = as.character(template_data$upfolder_2min)
|
|
|
+createtemplate(dirname ="upfolder_2min",template_data)
|