PRISMA2020.R

devtools::install_github("nealhaddaway/PRISMA2020")
library(PRISMA2020)

# This is the template CSV file, available from the PRISMA2020 repo
# You'll need to edit the numbers in this file to update the image
data <- read.csv("https://raw.githubusercontent.com/nealhaddaway/PRISMA2020/master/inst/extdata/PRISMA.csv",
                 stringsAsFactors = FALSE)

# Set the data as PRISMA data
data <- read_PRISMAdata(data)

# Create the plot
plot <- PRISMA_flowchart(data,
                         interactive = FALSE,
                         previous = FALSE,
                         other = FALSE)

# Capture outputs
  # PDF Output
  
    rsvg::rsvg_pdf(svg = charToRaw(DiagrammeRsvg::export_svg(plot)),
                   file = "prisma-flow.pdf")
  
  
  # PNG Output
  
  rsvg::rsvg_png(svg = charToRaw(DiagrammeRsvg::export_svg(plot)),
                 file = "prisma-flow.png")