From efbdd5031f531cae5fe12aea85defc704dfa331b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ricardo=20Montan=CC=83ana?= <rmontanana@gmail.com>
Date: Wed, 2 Mar 2022 13:01:44 +0100
Subject: [PATCH] Fix report title in exreport

---
 src/benchmark.r | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/benchmark.r b/src/benchmark.r
index b447c9f..588b3dd 100644
--- a/src/benchmark.r
+++ b/src/benchmark.r
@@ -7,7 +7,7 @@ csv_file <- glue("results/exreport_{args[1]}.csv")
 destination <- "exreport/"
 results <- read.csv(csv_file)
 library(exreport)
-experiment <- expCreate(results, method="classifier", problem="dataset", name="Stree")
+experiment <- expCreate(results, method="classifier", problem="dataset", name="Ranking")
 testScore <- testMultipleControl(experiment, args[1], "max")
 summary(testScore)
 table1 <- tabularTestSummary(testScore, columns =  c("pvalue", "rank", "wtl"))
@@ -16,7 +16,7 @@ plot1 <- plotExpSummary(experiment, args[1], columns = 3)
 plot2 <- plotCumulativeRank(testScore)
 plot3 <- plotRankDistribution(testScore)
 
-report <- exreport("Stree Report")
+report <- exreport("Ranking Report")
 # Add the experiment object for reference:
 report <- exreportAdd(report, experiment)
 # Now add the test:
@@ -31,7 +31,7 @@ report <- exreportAdd(report, list(plot1, plot2, table1, plot3))
 # We have decided to generate the table at this point of the tutorial to discusse some special formating parameters of this function. Concretely, some of the tabular outputs generated by exreport have some properties that are only useful when rendering the objets in a graphic report, and have no effect in the object representation in the R console. In this case, we will tell the function to boldface the method that maximices the result for each column, and to split the table into to pieces when rendering.
 
 # We create the table:
-table2 <- tabularExpSummary(experiment, args[1], digits=4, format="f", boldfaceColumns="max", tableSplit=2)
+table2 <- tabularExpSummary(experiment, args[1], digits=4, format="f", boldfaceColumns="max", rowsAsMethod=FALSE)
 # And add it to the report:
 report <- exreportAdd(report, table2)
 # Now that we have finished adding elements to the report it is time to render it. We want to generate an HTML report, so we call the appropiate function, by default it renders and opens the report in your browser using a temporary file, but you can optionally specify a folder in which the report will be saved for future use.