## ----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")