Set speaker notes for the current slide in a pptx presentation.
set_notes(x, value, location,...)## S3 method for class 'character'set_notes(x, value, location,...)## S3 method for class 'block_list'set_notes(x, value, location,...)
Arguments
x: an rpptx object
value: text to be added to notes
location: a placeholder location object. It will be used to specify the location of the new shape. This location can be defined with a call to one of the notes_ph functions. See section "see also".
...: further arguments passed to or from other methods.
Methods (by class)
set_notes(character): add a character vector to a place holder in the notes on the current slide, values will be added as paragraphs.
set_notes(block_list): add a block_list() to a place holder in the notes on the current slide.
Examples
# this name will be used to print the file# change it to "youfile.pptx" to write the pptx# file in your working directory.fileout <- tempfile(fileext =".pptx")fpt_blue_bold <- fp_text_lite(color ="#006699", bold =TRUE)doc <- read_pptx()# add a slide with some text ----doc <- add_slide(doc, layout ="Title and Content", master ="Office Theme")doc <- ph_with(x = doc, value ="Slide Title 1", location = ph_location_type(type ="title"))# set speaker notes for the slide ----doc <- set_notes(doc, value ="This text will only be visible for the speaker.", location = notes_location_type("body"))# add a slide with some text ----doc <- add_slide(doc, layout ="Title and Content", master ="Office Theme")doc <- ph_with(x = doc, value ="Slide Title 2", location = ph_location_type(type ="title"))bl <- block_list( fpar(ftext("hello world", fpt_blue_bold)), fpar(ftext("Turlututu chapeau pointu", fpt_blue_bold)))doc <- set_notes(doc, value = bl, location = notes_location_type("body"))print(doc, target = fileout)