slipsheet_slide.Rmd

---
title: "R in Sports"
subtitle: "올림픽 우승팀 예측"
author: "저자: 알사랑"
institute: "R 사용자회"
date: "2021-11-19"
output:
  xaringan::moon_reader:
    css: 
      - [default]
      - css/rconf_slipsheet.css
      - css/rconf-fonts.css
    lib_dir: libs
    seal: false
    nature:
      highlightStyle: googlecode
      highlightLines: true
      highlightLanguage: ["r"]
      countIncrementalSlides: false
      ratio: "4:3"
editor_options: 
  chunk_output_type: console
---

```{r setup, include = FALSE}
library(tidyverse)

options(
  htmltools.dir.version = FALSE, 
  htmltools.preserve.raw = FALSE,
  tibble.width = 60, tibble.print_min = 6,
  crayon.enabled = TRUE
)

knitr::opts_chunk$set(echo = FALSE, message=FALSE, warning=FALSE,
                      comment="", digits = 3, tidy = FALSE, prompt = FALSE, fig.align = 'center',
                      fig.width = 7.252,
                      fig.height = 4,
                      dpi = 300)

# uncomment the following lines if you want to use the NHS-R theme colours by default
# scale_fill_continuous <- partial(scale_fill_nhs, discrete = FALSE)
# scale_fill_discrete <- partial(scale_fill_nhs, discrete = TRUE)
# scale_colour_continuous <- partial(scale_colour_nhs, discrete = FALSE)
# scale_colour_discrete <- partial(scale_colour_nhs, discrete = TRUE)
```



name: rconf-slipsheet
class: right, top
background-image: url("fig/slipsheet-image.jpg")
background-size: contain