snippet [
	[${1:label}](${2:location})

snippet ![
	![${1:label}](${2:location})

snippet r
	```{r}
	#| eval: true
	#| echo: true
	
	
	```

snippet rcol
	```{r}
	#| eval: true
	#| echo: true
	#| output-location: column
	#| code-line-numbers: "4-5|11-12|"
	#| code-link: false
	
	
	```

snippet rfig
	```{r}
	#| eval: true
	#| echo: false
	#| fig-width: 8
	#| fig-height: 6
	#| fig-align: center
	
	
	```

snippet rcpp
	```{r, engine='Rcpp'}
	#include <Rcpp.h>
	using namespace Rcpp;
	
	${0}
	
	```

snippet panel
	::: {.panel-tabset}
		${1:body}
	:::
	
snippet column
	:::: {.columns}

	::: {.column width="50%"}
	Left column
	:::

	::: {.column width="50%"}
	Right column
	:::

	::::

snippet slide
	## ${1:title} {data-background="../Backgrounds/default.jpg"}

snippet section
	# ${1:title} {data-background-video="../Backgrounds/section.mp4" data-background-video-loop="true"}

snippet website
	## {background-iframe="https://guba.eastmoney.com/list,000831.html" background-interactive="true"}

snippet photo
	## {data-background="../Photos/${1:photo}.png" data-background-size="contain" class="photo"}

snippet thanks
	## Thanks! {data-background="../Backgrounds/SMU_Themed_Bkgrd_3.png" visibility="uncounted"}
	
	<h2 class="author"><br>Dr. Richard M. Crowley<br>rcrowley@smu.edu.sg<br><a href="https://twitter.com/prof_rmc">@prof_rmc</a><br><a href="https://rmc.link/">rmc.link/</a></h2>

snippet image
	![](../Figures/${1:image}){width="800px" fig-align="center"}

snippet link
	[${1:text}](${2:link})

snippet linkex
	[${1:text}](${2:link}){.external}

snippet aside
	::: aside
	
	
	:::

snippet attribution
	::: {.attribution}
	
	Photo courtesy of [@ingtotheforest](https://unsplash.com/@ingtotheforest)
	
	:::


snippet callout
	::: {.callout-${1:type.note.warning.important.tip.caution}}
	## ${2:title.optional}
	
	${0}
	
	:::

snippet video
	<center><video src="../Figures/${1:name}" height="220px" autoplay muted loop></video></center>

snippet footnote
	^[${1:content}]

snippet icon
	{{< mi cancel size=0.8em color=red >}}

snippet comment
	<!--# ${1:comment} -->

snippet TODO
	<!--# TODO: ${1:comment} -->

snippet qr
	{{< qrcode ${1:link} qr${2:title} width=300 height=300 >}}

snippet question
	### Exercise ${1:num_and_name} {.tabset .tabset-pills}
	
	#### Question
	
	```{r prepare-${2:name}, exercise.setup = "prepare-${3:oldname}"}
	
	```
	
	```{r ${2:name}, exercise=TRUE, exercise.setup = "prepare-${2:name}"}
	
	
	#END
	```
	
	```{r ${2:name}-solution}
	
	
	
	#END
	```
	
	```{r ${2:name}-check}
	# Note: use `.envir_result` and `.envir_solution` when comparing multiple objects
	# Note: use `.result` and `.solution` when only caring about the output
	grade_this({
	  # custom checking code appears here
	  if (identical(.result, .solution)) {
	    pass("Great work!")
	  } else {
	    fail()
	  }
	})
	
	```
	
	#### Playground
	
	```{r ${2:name}-playground, exercise=TRUE, exercise.setup = "prepare-${2:name}"}
	# Try out code here
	
	```
	
	#### Hint 1
	
	

snippet video
	<center><video src="../Figures/*.webm" height="400px" autoplay muted loop></video></center>