Renamed report template for scenario 1

R/scenario1-master.R

@@ -322,7 +322,7 @@ scenario1Server <- function(id){
         )
         return(x)
       })
-      reportServer('report', params = params, report_template = "report_pdf.Rmd")
+      reportServer('report', params = params, report_template = "scenario1_report_pdf.Rmd")
 
     }
   )

inst/extdata/report_templates/open_report_pdf.Rmd → inst/extdata/report_templates/scenario1_report_pdf.Rmd

@@ -59,11 +59,11 @@ Handwriter has been tested on handwriting examples from publicly available handw
 Handwriter processes handwriting by converting the writing to black and white, thinning the writing to 1 pixel in width, and following a set of rules to break the writing into component shapes called *graphs*. Graphs capture shapes, not necessarily individual letters. Graphs might be a part of a letter or contain parts of multiple letters.
 
 ```{r graphs1, echo=FALSE, fig.cap="Graphs from the first document.", fig.align="center"}
-handwriter::plot_graphs(params$graphs1, ncol=5)
+handwriter::plotNodes(params$graphs1)
 ```
 
 ```{r graphs2, echo=FALSE, fig.cap="Graphs from the second document.", fig.align="center"}
-handwriter::plot_graphs(params$graphs2, ncol=5)
+handwriter::plotNodes(params$graphs2)
 ```
 
 ## Clusters