Based on the file extension for a template
Value
List with the following elements
rpttype: Either Word, PowerPoint or Unknown
rptext: Either docx, pptx, or Unknown
rptobj: Either rdocx, rpptx, or Unknown
isgood: Boolean variable indicating success or failure
msgs: Vector of messages
Examples
rpttype = fetch_rpttype(template=
file.path(system.file(package="onbrand"), "templates", "report.pptx"))