# \donttest{# Creating theme for ggplot2 graph using default argumentslibrary(ggplot2)fig_raw<-ggplot()+geom_col(data =mtcars, aes(x =hp , y =mpg, fill =cyl))+theme_ipea()# Save ggplot outputsave_pdf(fig_raw,file.name =paste0(tempdir(),"/figura.pdf"))#> Saving 7 x 7 in image# }