Nothing
library(knitr) library(data.table) knitr::opts_chunk$set( echo = FALSE, message = FALSE, warning = FALSE, out.width = "100%" )
outdir <- params$outdir IDEA_plots <- params$data IDEAdata <- IDEA_plots$data metadata <- IDEAdata$metadata n_farm <- nrow(metadata) IDEATools::write_idea(IDEA_plots,output_directory = outdir, type = "local", dpi = params$dpi, quiet = TRUE)
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_dimensions.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Histogramme_dimensions.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_composantes.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_indicateurs_agroecologiques.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_indicateurs_socio_territoriaux.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_indicateurs_economiques.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Matrice_propriétés.png"))
knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Fréquence_propriétés.png"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.