diff options
Diffstat (limited to 'test/performance')
-rw-r--r-- | test/performance/graphs/common.r | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/performance/graphs/common.r b/test/performance/graphs/common.r index e310b811..34a59c43 100644 --- a/test/performance/graphs/common.r +++ b/test/performance/graphs/common.r @@ -83,7 +83,16 @@ main <- function(routine_name, precision, test_names, test_values, params_string <- paste(parameters, params_values[[command_id]], collapse=" ") arguments <- paste(devices_string, params_string, options_string, sep=" ") print(paste("Running", executable, arguments, sep=" ")) - result_string <- system2(command=executable, args=arguments, stdout=TRUE) + raw_result_string <- system2(command=executable, args=arguments, stdout=TRUE) + + # Filter the string: only lines containing a ";" can be valid lines + result_string <- c() + for (line in raw_result_string) { + if (grepl(";",line)) { + result_string <- + c(result_string, line) + } + } # Reads the result into a dataframe command_db <- read.csv(text=result_string, sep=";") |