officer (version 0.2.0)

ph_with_img: add image

Description

add an image as a new shape in the current slide.

Usage

ph_with_img(x, src, type = "body", index = 1, width = NULL,
  height = NULL)
ph_with_img_at(x, src, left, top, width, height, rot = 0)

Arguments

x

a pptx device

src

image filename, the basename of the file must not contain any blank.

type

placeholder type

index

placeholder index (integer). This is to be used when a placeholder type is not unique in the current slide, e.g. two placeholders with type 'body'.

width, height

image size in inches

left, top

location of the new shape on the slide

rot

rotation angle

Examples

# NOT RUN {
fileout <- tempfile(fileext = ".pptx")
doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")

img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
if( file.exists(img.file) ){
  doc <- ph_with_img(x = doc, type = "body", src = img.file, height = 1.06, width = 1.39 )
}

print(doc, target = fileout )

fileout <- tempfile(fileext = ".pptx")
doc <- read_pptx()
doc <- add_slide(doc, layout = "Title and Content", master = "Office Theme")

img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
if( file.exists(img.file) ){
  doc <- ph_with_img_at(x = doc, src = img.file, height = 1.06, width = 1.39,
    left = 4, top = 4, rot = 45 )
}

print(doc, target = fileout )
# }

Run the code above in your browser using DataCamp Workspace