
<h1>This is a sample report</h1>
<h2>Static plots using a previously created R object </h2>

<!--begin.rcode fig.width = 5, fig.height = 5
#knitr::opt_chunks$set(fig.width = 5, fig.height = 5)

n_cat <- 4

func_aux <- function(enrich_plot){
   enrichplot::cnetplot(enrich_plot,showCategory=n_cat)
}

cat(plotter$static_plot_main("enrichments_mf", custom_format = TRUE, plotting_function = func_aux ))

   end.rcode-->

<!--begin.rcode fig.width = 5, fig.height = 5

func_plot <- function(){
   plot(data_frame)
}
cat(plotter$static_plot_main("plot_data", custom_format = TRUE, plotting_function = func_plot, plot_type = "autoplot"))
   end.rcode-->

<h2> You can edit the properties of divs with an interface function <h2>
<!--begin.rcode Pretty_divs
    cat(plotter$prettify_div("This is a simple div"))
    cat(plotter$prettify_div("This is a right-justified div", display = "flex", justify = "right"))
    cat(plotter$prettify_div("This is a preset div", preset = "magic",
                             overflow = "preset will override other arguments"))
end.rcode-->

<!--begin.rcode double_heatmap
cat(plotter$prettify_div(plotter$heatmap(list(id = "heatmap_colors", header = FALSE, row_names = FALSE, text = "dynamic",
                                             extra_data = list(id ="heatmap_sizes", header = FALSE, row_names = FALSE, text = "dynamic"),
                                             config = list(sizeLegendTitle = "Textual Similarity", sizes = c(3, 11, 15, 40)),
                                             title = "double heatmap")), preset = "magic"))
end.rcode-->
