diff --git a/R/Achilles.R b/R/Achilles.R index 9c336021..bf2023d1 100755 --- a/R/Achilles.R +++ b/R/Achilles.R @@ -456,7 +456,7 @@ achilles <- function(connectionDetails, endTime <- Sys.time() delta <- endTime - start analysisId <- as.integer(mainSql$analysisId) - performanceTable[nrow(performanceTable) + 1, ] <- c(analysisId, delta, start, endTime) + performanceTable[nrow(performanceTable) + 1, ] <- list(analysisId, delta, start, endTime) ParallelLogger::logInfo(sprintf( "[Main Analysis] [COMPLETE] %d (%f %s)", as.integer(mainSql$analysisId),