
<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-->
