## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(rstudioapi)

## ----eval=FALSE---------------------------------------------------------------
#  reformat <- function() {
#    id <- rstudioapi::documentId(allowConsole = TRUE)
#    selection <- rstudioapi::selectionGet(id = id)
#    formatted <- styler::style_text(text = selection$value)
#    rstudioapi::selectionSet(value = formatted, id = id)
#  }