restructure folders, delete old files

Author: thho

event_marker/Maoxian_Info.csv

@@ -2,22 +2,26 @@
 ###StaMPS-Visualizer global script###
 #####################################
 
-###Loading and preparing PS data from StaMPS export
-#library package
+####################
+###Visualizer Map###
+####################
+
+# Loading and preparing PS data from StaMPS export
+# library package
 library(lubridate)
 
-#looking for study site data in stusi folder
-dat.path <- list.files("./stusi/")
+# looking for study site data in stusi folder
+dat.path <- list.files("input/stusi/")
 
-#prepare objects to read data
+# prepare objects to read data
 ps.loc <- list()
 dates.days <- list()
 dates.date <- list()
 ref.points <- list()
 
-#read data into R
+# read data into R
 for(i in 1:length(dat.path)){
-  dat <- read.csv(paste("./stusi/", dat.path[i], sep = ""))
+  dat <- read.csv(paste("input/stusi/", dat.path[i], sep = ""))
   dates.days[[i]] <- as.vector(t(dat[1, 4:ncol(dat)]))
   dates.date[[i]] <- as_date(dates.days[[i]], origin = "0000-01-01")
   ref.points[[i]] <- as.vector(t(dat[1, 1:2]))
@@ -28,52 +32,26 @@ for(i in 1:length(dat.path)){
                               dat[, 4:ncol(dat)])
 }
 
-#prepare study site name
+# prepare study site name
 str.rev <- function(x){sapply(lapply(strsplit(x, NULL), rev), paste, collapse = "")}
 stusi <- str.rev(dat.path)
 stusi <- substr(stusi, 5, 50)
 stusi <- str.rev(stusi)
 
-#tidy up
-rm(dat)
-
-###Loading and preparing custom event marker for showing 
-###information as points with pop-up-dialog on map
-
-#looking for event marker data in event_marker folder
-event.path <- list.files("./event_marker/")
-
-#prepare objects to read data
-event.loc <- list()
-event.info <- list()
-
-#read data into R
-for(i in 1:length(event.path)){
-  dat <- read.csv(paste("./event_marker/", event.path[i], sep = ""), stringsAsFactors = FALSE)
-  event.info[[i]] <- dat[ , 3]
-  event.loc[[i]] <- data.frame(lon = dat[, 1], lat = dat[, 2])
-}
-
-#prepare study site name
-event <- str.rev(event.path)
-event <- substr(event, 5, 50)
-event <- str.rev(event)
-event <- c("---", event)
-
-#tidy up
+# tidy up
 rm(dat)
 
-##########################
+##############################
 
 #################
 ##Baseline Plot##
 #################
 
-##in Linux use this to prepare the SNAP export
-#sed 's/?/0/g' stack_all_baselines.csv | sed 's/ //g'
+## in Linux use this to prepare the SNAP export
+# sed 's/?/0/g' stack_all_baselines.csv | sed 's/ //g'
 
-#looking for baseline info csv files
-dat.path <- list.files("baseline_info/", pattern = ".csv")
+# looking for baseline info csv files
+dat.path <- list.files("input/baseline_info/", pattern = ".csv")
 
 str.rev <- function(x){sapply(lapply(strsplit(x, NULL), rev), paste, collapse = "")}
 bl.info <- str.rev(dat.path)