gentlg doesn't work for multiple graphs

[shengwei66]

Users have reported that an error is encountered in gentlg when creating the output for multiple graphs. The reprex is below.

Prep Environment

library(dplyr)
library(ggplot2)
library(tidytlg)

adsl <- cdisc_adsl %>%
filter(SAFFL == "Y")

tblid <- "test2plots"

Generate Results

plot1 <- ggplot(data = adsl, aes(x = HEIGHTBL, y = WEIGHTBL)) +
geom_point() +
labs(x = "Baseline Height (cm)",
y = "Baseline Weight (kg)")

create png file of plot1

png("../output/plot1.png", width=2800, height=1800, res=300, type = "cairo")

plot1

dev.off()

plot2 <- ggplot(data = adsl, aes(x = WEIGHTBL, y = HEIGHTBL)) +
geom_point() +
labs(x = "Baseline Weight (kg)",
y = "Baseline Height (cm)")

create png file of plot2

png("../output/plot2.png", width=2800, height=1800, res=300, type = "cairo")

plot2

dev.off()

Output Results

gentlg(tlf = "g",
plotnames = paste0("../output/", c("plot1.png","plot2.png")),
opath = "../output",
plotwidth = 8,
plotheight = 5,
orientation = "landscape",
file = tblid,
title = "Scatter plot")

Error in if (file.exists(plotnames)) { : the condition has length > 1

This used to work in previous version without error.