## ----setup, include=FALSE------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  warning = FALSE,
  fig.width = 8,
  fig.height = 2.41)

library(robvis)


## ---- eval = FALSE-------------------------------------------------------
#  rob_tools()
#  #> [1] "ROB2"
#  #> [1] "ROBINS-I"
#  #> [1] "QUADAS-2"
#  #> [1] "ROB1"

## ---- eval=FALSE---------------------------------------------------------
#  data <- read.csv("path/to/summary_table.csv", header = TRUE)

## ----headrob, echo = FALSE-----------------------------------------------
knitr::kable(data_rob2)

## ------------------------------------------------------------------------
rob_summary(data_rob2, tool = "ROB2")

## ------------------------------------------------------------------------
rob_summary(data_robins, tool = "ROBINS-I")

## ------------------------------------------------------------------------
rob_summary(data_quadas, tool = "QUADAS-2")

## ------------------------------------------------------------------------
rob_summary(data_rob2, tool = "ROB2", overall = TRUE)

## ------------------------------------------------------------------------
rob_summary(data_rob2, tool = "ROB2", weighted = FALSE)

## ------------------------------------------------------------------------
rob_summary(data = data_rob2, tool = "ROB2", colour = "colourblind")

## ------------------------------------------------------------------------
rob_summary(data = data_rob2, tool = "ROB2", colour = c("#f442c8","#bef441","#000000"))

## ---- fig.width = 6, fig.height = 9, fig.align="center"------------------
rob_traffic_light(data_rob2, tool = "ROB2")

## ---- fig.width = 7.5, fig.height = 10.5, fig.align="center"-------------
rob_traffic_light(data_robins, tool = "ROBINS-I")

## ---- fig.width = 7.5, fig.height = 10.5, fig.align="center"-------------
rob_traffic_light(data_quadas, tool = "QUADAS-2")

## ---- fig.width = 6, fig.height = 9, fig.align="center"------------------
# Generate larger dataset
data <- rbind(data_rob2, data_rob2)
data$Study <- paste("Study",seq(1,18))

# Plot with reduced point size
rob_traffic_light(data, tool = "ROB2", psize = 10)

## ---- fig.width = 6, fig.height = 9, fig.align="center"------------------
rob_traffic_light(data = data_rob2, tool = "ROB2", colour = "colourblind")

## ---- fig.width = 6, fig.height = 9, fig.align="center"------------------
rob_traffic_light(data = data_rob2, tool = "ROB2", colour = c("#f442c8","#bef441","#000000"))

## ------------------------------------------------------------------------
colnames(data_rob2)

colnames(data_rob1)

## ---- echo = FALSE-------------------------------------------------------
colnames(data_rob1)[2] <- "This is a test"
rob_summary(data_rob1, tool = "ROB1")

## ---- fig.width = 7, fig.height = 9, fig.align="center", echo = FALSE----
rob_traffic_light(data_rob1, tool = "ROB1")