obnd = read_template(
template = file.path(system.file(package="onbrand"), "templates", "report.pptx"),
mapping = file.path(system.file(package="onbrand"), "templates", "report.yaml"))
# pulling out the report
rpt = fetch_officer_object(obnd)$rpt
# Modifications would be made here with officer directly
# Replacing the report into the onbrand object
obnd = set_officer_object(obnd, rpt)
Run the code above in your browser using DataLab