Eksport tabela i grafika u Microsoft PowerPoint

Zadatak: Generisati vještački data frame i dijagram rasturanja, pa oba objekta eksportovati u PowerPoint dokument pod nazivom prezentacija.pptx.

> #narednu komandu izvrsiti ukoliko officer paket vec nije instaliran
> #install.packages("officer")
> library(officer)
> 
> #definisati data frame
> db <- data.frame(x = 1:10, y = letters[1:10])
> 
> #definisati pptx dokument
> pptx <- read_pptx()
> #dodati slajd i definisati sablon
> pptx <- add_slide(pptx, layout = "Two Content")
> #eksportovati data frame db
> pptx <- ph_with(pptx, 
+     value = db, 
+     location = ph_location_left(),
+     alignment = "l")
> #kreirati dijagram rasturanja
> graph <- plot_instr(code = {plot(1:10)} )
> #eksportovati grafik
> pptx <- ph_with(pptx, 
+     value = graph, 
+     location = ph_location_right())
> #generisati pptx dokument
> print(pptx, target = "prezentacija.pptx")

Napomena: Ukoliko se prethodni kod izvrši uspješno, u radnom direktorijumu trenutne R sesije biće sačuvan dokument dat u prilogu.

32KB

prezentacija.pptx

prezentacija.pptx