문서는 커뮤니케이션이다.Tidyverse, R Markdown, Pro PDFs, Shiny이광춘2021-11-191 / 29

발표 개요

디지털 경제전환(Digital Transformation) 시대는 각종문서를 다루는 지식(공부) 노동자에게 규모의 경제(Economy of Scale)와 더불어 범위의 경제(Economy of Scope)를 적극 도입하여 문서를 증거기반 데이터를 반영하여 재현가능하며 협업이 가능한 형태로 작업하는 것을 요구하고 있다.

Tidyverse 생태계를 구축하는 중요한 축을 담당하는 R Markdown을 중심으로 이런 문제를 해결하여 저녁이 있는 삶을 만들어보자.

1. 디지털 경제전환

2. 규모의 경제 (Economy of Scale)

2.1. Literate Programming

2.2. 자동화/Parameterized Report

3.3. 전문가 보고서

3. 범위의 경제 (Economy of Scope)

2.1. Document Factory

2.2. 한국 R 컨퍼런스

4. 마무리

2 / 29

Building Blocks: 비즈니스 모형

Klein, J. (2021). Competing in the Age of AI. By MarcoIansiti and KarimLakhani. Harvard Business Review Press: Boston, MA, 2020, ISBN‐13 978‐1633697621, hardback, £18, pp. 288. R&D Management. doi:10.1111/radm.12489

3 / 29

Building Blocks: 운영 모형

4 / 29

디지털 AI 기업: AI 공장과 운영모형

5 / 29

디지털 AI 기업: 운영모형 + 네트워크 효과

6 / 29

디지털 AI 기업: 가치(Value), 효용(Utility)

7 / 29

디지털 AI 기업: 운영모형

8 / 29

디지털 AI 기업: 운영모형 비교

9 / 29

사례: 노키아 vs 애플

10 / 29

사례: 현재 충돌 상황

11 / 29

발표 개요

Tidyverse 생태계를 구축하는 중요한 축을 담당하는 R Markdown을 중심으로 이런 문제를 해결하여 저녁이 있는 삶을 만들어보자.

1. 디지털 경제전환

2. 규모의 경제 (Economy of Scale)

2.1. Literate Programming

2.2. 자동화/Parameterized Report

3.3. 전문가 보고서

3. 범위의 경제 (Economy of Scope)

2.1. Document Factory

2.2. 한국 R 컨퍼런스

4. 마무리

12 / 29

대다수 문서제작 현황

R마크다운 콘텐츠: 웹사이트, 블로그, 포트폴리오 등

13 / 29

디지털 커뮤니케이션 대상

R마크다운 콘텐츠: 웹사이트, 블로그, 포트폴리오 등

14 / 29

`Code First` 문서 제작

15 / 29

R Markdown → PDF, HTML, Word

library(knitr)
fs::dir_create("01_rmarkdown")
# 1. 보고서 만들기 ---------------------------------------
## 1.1. HTML 보고서 ---------------------------------------
render("01_bmi_rmarkdown_html.Rmd", 
    output_format="html_document",
    output_file = glue::glue("01_bmi_rmarkdown.html"),
    encoding = 'UTF-8', 
    output_dir = "01_rmarkdown")
## 1.2. PDF 보고서 ---------------------------------------
render("01_bmi_rmarkdown_pdf.Rmd", 
    output_format="pdf_document",
    output_file = glue::glue("01_bmi_rmarkdown.pdf"),
    encoding = 'UTF-8', 
    output_dir = "01_rmarkdown")

code first 한글

16 / 29

R Markdown → Parameterized Report

fs::dir_create("02_parameterized")
# 1. 성별 ---------------------------------------
genders <- c("Male", "Female")
# 2. 남녀별 보고서 만들기 ---------------------------------------
for(gender in genders) {
  knitr::render("02_bmi_parameterized.Rmd", 
    output_format="html_document",
    params = list(gender = gender),
    output_file = glue::glue("02_bmi_parameterized_{gender}.html"),
    encoding = 'UTF-8', 
    output_dir = "02_parameterized")
}

code first 한글

17 / 29

R Markdown → 전자우편 발송

fs::dir_create("03_email")
# 1. 전자우편 만들기 ---------------------------------------
bmi_email <- render_email('03_bmi_email.Rmd')
bmi_email
bmi_email %>%
  smtp_send(
    to = "steve.jobs@gmail.com",
    from = "victor@r2bit.com",
    subject = "한국 R 컨퍼런스 후원 테스트",
    credentials = creds_key("rconf")
  )