How to create a footer on powerpoint slide using R packages officedown and officer

Question

Revised a second time!!

There is an example .rmd that comes with the officedown package and in that are chunks that show how you can use the officer