snippet ---
---
title: $1
output:
  $2_document:
---

endsnippet

snippet opts
opts_chunk$set(echo = ${1:F},
               message = ${2:F},
               error = ${3:F},
               warning = ${4:F},
               fig.width = ${5:12},
               fig.height = ${6:7})

endsnippet

snippet fun
function($1)
{
  $2
}

endsnippet

snippet if
if ($1)
{
  $2
}

endsnippet

snippet ifelse
ifelse($1, $2, $3)
endsnippet

snippet case
case_when($1 ~ $2,
          $3 ~ $4,
          ${5:T} ~ $6)

endsnippet

snippet lib "" bA
library(${1:tidyverse})

endsnippet
