## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(message = FALSE, warning = FALSE)

## ----installation-check, fig.width=6, fig.height=4----------------------------
library(ggplot2)
library(GoldenVizR)

p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
  geom_point(size = 2.4) +
  labs(
    title = "Fuel economy by weight",
    subtitle = "Motor Trend cars",
    x = "Weight",
    y = "Miles per gallon",
    colour = "Cylinders",
    caption = "Source: mtcars"
  ) +
  theme_minimal(base_size = 12)

p

## ----installation-report------------------------------------------------------
report <- analyze_plot(p)
report$summary

## ----installation-static-image, echo=FALSE, out.width="75%"-------------------
knitr::include_graphics("figures/installation-check.png")

## ----installation-report-fields-----------------------------------------------
names(report)

## ----installation-html-report, eval=FALSE-------------------------------------
# render_report(report)
# save_report(report, "goldenviz-report.html")
# view_report(report)

