---
title: "Example Report"
author: "by someone"
date: "`r format(Sys.time(), '%d. %B %Y')`"
output: 
  volker::html_report
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
#
# 1. Setup ----
#

# Knit settings
knitr::opts_chunk$set(echo = FALSE)

# Load packages
library(volker)

# Set plot theme
theme_set(theme_vlkr())

```


```{r data, include=FALSE}
#
# 2. Load and prepare data ----
#

# Example data. Replace by your own dataset.
ds <- volker::chatgpt

```


```{r}
#
# 3. Analyse data ----
#

ds |> 
  report_counts(
    starts_with("cg_adoption_social"), 
    numbers="p"
  )

```
