switch from xgx_annotate_filenames to labs(caption = caption) for simplicity/transparency

[iamstein]

At the top of my code, I have something like:

caption = paste(c("Parent Dir: dosefindingtoolbox/Rmarkdown",
                  "Rmarkdown: Efficacy_Data_Overview_Plots.Rmd",
                  "Output: Efficacy_Data_Overview_Plots.html",
                  paste0("Timestamp: ", Sys.time())),
                collapse = "\n")

And then when I’m building the graphic, I have this:

g = g + labs(caption = caption)

Or another idea is at the top of the code to type something like

gcaption = theme(plot.caption = element_text(hjust = 0.5)) +
      labs(caption = paste0(dirs$top.local,"\n",
                            file.path(dirs$scripts.local, Rname),"\n",
                            file.path(dirs$scripts.local, Rmd_In),"\n",
                            file.path(dirs$results.local, Rmd_Out)))

then, later on in the code you can use

g = g + gcaption

[iamstein]

Here's the implementation of the above that is working properly.

Rmd_name = "Filename.Rmd"
caption = paste(c(dirs$parent_dir, 
                  Rmd_name,
                  str_replace(Rmd_name, ".Rmd$", ".html"),
                  paste(Sys.time())),
                  collapse = "\n")
ggcaption = list(labs(caption = caption),
                 theme(plot.caption = element_text(hjust = 0.5)))

ggplot(cars, aes(x=speed, y=dist)) + geom_point() + ggcaption