Fix bug.

R/DatafileHandle.R

@@ -172,7 +172,7 @@ DatafileHandle <- R6Class(
         if(length(datafile$parents)>0) {
           rslt <- self$store(datafile$parents)
           for(parent in datafile$parents) {
-            if(length(datafile$analysis) == 1) {
+            if(length(datafile$analysis) > 0 && 'Analysis' %in% class(datafile$analysis)) {
               st <- "INSERT IGNORE INTO Analysis_has_Data (Child_ID, Parent_ID, Analysis_ID)
                                                    VALUES (?, ?, ?)"
               r <- self$dbConnection$execute(st, list(datafile$ID,