removed save tmp file

app.R

@@ -250,7 +250,7 @@ server <- function(input, output, session) {
         modelList[[cnt]] <- tmp
         models <<- c(models, substr(fileList[idx], 1, (nchar(fileList[idx])-5)))
         print(paste('Model file successfully loaded', fileList[idx]))
-        save(tmp, file='tmp.RData')
+        #save(tmp, file='tmp.RData')
         cnt=cnt+1
       }
     }