I've tried both of these templates and both produce the same output (Black, Centered Text on Title Page, and Chart on slide 2 without the desired Header Bar and Language.)
---
title: "Untitled"
date: "3/4/2020"
output: powerpoint_presentation
reference_doc: "template_1.pptx"
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
warning = FALSE,
# dev = "svg",
fig.width = 12,
fig.height = 7
)
library(patchwork)
library(tidyverse)
library(gridtext)
# prep frequency table
freqtable <- table(mpg$manufacturer)
df <- as.data.frame.table(freqtable)
theme_set(theme_classic())
# Plot
g <- ggplot(df, aes(Var1, Freq))
g <- g + geom_bar(stat="identity", width = 0.5, fill="tomato2") +
theme(axis.text.x = element_text(angle=65, vjust=0.6)) +
theme(axis.title.x = element_blank())
t <- richtext_grob("• Hello <br> <br> • Goodbye", halign = 0, valign = -10)
(g+g) / (g+t)
The first 3 slides show Template_1 which has 3 slides when viewing the Master Layout. See attached images.
The second 3 slides show Template_2 which has 3 slides when viewing the Master Layout - the 3rd slide is blank and PPT won't let me delete it. See attached images.
The results are the same for both templates as shown below.