more error handling but it seems to run

2014-12-01 23:17:55 +01:00
parent 07266cf219
commit 3dae6c0626
3 changed files with 339 additions and 35 deletions
@@ -16,4 +16,14 @@ insertRow <- function(existingDF, newrow, r) {
  existingDF <- existingDF[order(c(1:(nrow(existingDF)-1),r-0.5)),]
  row.names(existingDF) <- 1:nrow(existingDF)
  return(existingDF)  
-}
+}
+
+# mergeIfExists <- function(fulldf, tempdf) {
+#   if(exists(fulldf)) {
+#     fulldf <- insertRow(fulldf, tempdf)
+#   }
+#   else {
+#     fulldf <- tempdf
+#   }
+#   return(fulldf)
+# }