Update getLoadings from upstream

R/getLoadings.R

@@ -18,12 +18,12 @@ getLoadings<-function(inputDF=read.csv("data/input_file_new_kla_div_20200727.csv
 
   df1<-inputDF
 
-#comment out these lines after testing
-#  df1<-df1[,c(1:36)]
-#  colnames(df1)<-c(colnames(df1[,c(1:13)]),substr(colnames(df1[,c(14:36)]),1,nchar(colnames(df1[,c(14:36)]))-4))
-#  colnames(df1)
-#  df1$excreted<-c(1e10,1e6,1e4,1e15,1e11)
-#comment out these lines after testing
+  #comment out these lines after testing
+  #  df1<-df1[,c(1:36)]
+  #  colnames(df1)<-c(colnames(df1[,c(1:13)]),substr(colnames(df1[,c(14:36)]),1,nchar(colnames(df1[,c(14:36)]))-4))
+  #  colnames(df1)
+  #  df1$excreted<-c(1e10,1e6,1e4,1e15,1e11)
+  #comment out these lines after testing
 
   pathogenGroups<-c("Virus","Bacteria","Protozoa","Helminth")
   index<-which(pathogenGroups==pathogenType)
@@ -312,7 +312,7 @@ getLoadings<-function(inputDF=read.csv("data/input_file_new_kla_div_20200727.csv
   returned<-list(input=df1,
                  det=loadings,
                  output=onsite_results[complete.cases(onsite_results),]
-                 )
+  )
   return(returned)
 
 }