fixing tmp

Author: mmaher22

R/autoRLearn.R

@@ -215,16 +215,16 @@ autoRLearn <- function(maxTime, directory, testDirectory, classCol = 'class', me
       finalResult$clfs <- bestAlgorithm
       finalResult$params <- bestAlgorithmParams
       #save results to Temporary File
-      sendToTmp(metaFeatures, bestAlgorithm, bestAlgorithmParams, finalResult$perf, nModels, metric)
+      query <- sendToTmp(metaFeatures, bestAlgorithm, bestAlgorithmParams, finalResult$perf, nModels, metric)
+      #check internet connection and send data in tmp file to database if connection exists
+      if(checkInternet() == TRUE){
+        sendToDatabase(query)
+      }
     })
   if(inherits(trainFinalModelError, "try-error")){
     print('Error: No Enough Computational Resources. Can not build a model over the current dataset!')
   }
 
-  #check internet connection and send data in tmp file to database if connection exists
-  if(checkInternet() == TRUE){
-    sendToDatabase()
-  }
 
   finalResult$TRData = dataset$FULLTD
   finalResult$TEData = dataset$TED

R/runClassifier.R

@@ -56,7 +56,7 @@
 #' @importFrom  caret plsda
 #' @importFrom  stats glm predict
 #' @importFrom  nnet nnet
-#' @importFrom  deepboost deepboost
+#' @importFrom  deepboost deepboost deepboost.predict
 #' @importFrom  utils capture.output
 #' @importFrom  mda fda mars bruto gen.ridge polyreg
 #'

R/sendToDatabase.R

@@ -1,7 +1,7 @@
 #' @title Send Results to Knowledge Base
 #'
 #' @description Connect to the cloud knowledge base to store the results obtained to be used in meta-learning of future runs.
-#'
+#' @param tmp String of characters to be sent to knowledge base
 #' @return None
 #'
 #' @examples sendToDatabase()
@@ -14,18 +14,18 @@
 #'
 #' @keywords internal
 
-sendToDatabase <- function(){
+sendToDatabase <- function(tmp){
   #Get IP
   cntIP <- fromJSON(readLines("http://api.hostip.info/get_json.php", warn=F))$ip
 
   #Update knowledge base
   updateKB <- try(
     {
-      tmp <- paste(readLines(system.file("extdata", "tmp", package = "SmartML", mustWork = TRUE)), collapse="\n")
+      #tmp <- paste(readLines(system.file("extdata", "tmp", package = "SmartML", mustWork = TRUE)), collapse="\n")
       res <- POST("https://jncvt2k156.execute-api.eu-west-1.amazonaws.com/default/s3-trigger-rautoml", body = list(data = paste(tmp, "&DATA&", sep=""),
                                                                                                                    fName = paste(cntIP,".csv&FILENAME&", sep=""),
                                                                                                                    encode = "json"))
-      write("", file=system.file("extdata", "tmp", package = "SmartML", mustWork = TRUE),append=TRUE) #Empty the tmp file
+      #write("", file=system.file("extdata", "tmp", package = "SmartML", mustWork = TRUE),append=TRUE) #Empty the tmp file
     })
   if(inherits(updateKB, "try-error"))
     print('Failed to update Knowledge base.')

R/sendToTmp.R

@@ -34,5 +34,6 @@ sendToTmp <- function(df, algorithmName, bestParams, perf, nModels, metric = 'ac
                    df$classProbMean, df$classProbMax, df$classProbMin, df$classEntropy, df$ratioNumToCat, df$nCatFeatures, df$nNumFeatures,
                    df$nInstances, df$nFeatures, df$nClasses, df$lognFeatures, df$lognInstances, df$classifierAlgorithm, df$params, df$maxTime, metric,
                    df$performance, nModels)
-  write(query, file=system.file("extdata", "tmp", package = "SmartML", mustWork = TRUE),append=TRUE)
+  return(query)
+  #write(query, file=system.file("extdata", "tmp", package = "SmartML", mustWork = TRUE),append=TRUE)
 }