-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathintroslides.Rmd
210 lines (163 loc) · 7.34 KB
/
introslides.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
---
title: "Welcome to {Your} R Collaborative"
subtitle: "Work in progress"
date: "`r Sys.Date()`"
output:
xaringan::moon_reader:
lib_dir: libs
css: xaringan-themer.css
nature:
highlightStyle: github
highlightLines: true
countIncrementalSlides: false
ratio: "16:9"
params:
collab_short: "Your R Collab"
collab_long: "Your R Collaborative"
collab_github: "https://github.com/repo_owner/repo_name"
coc_link: "https://yourdomain.github.io/coc/"
collab_email: "your_collab_email@somewhere.com"
coc_report_link: "https://your_report_link.com"
collab_slack_faq: "#collab-faq"
collab_schedule_link: "https://your_schedule_link.com"
---
```{r setup, include=FALSE}
# load packages
library(dplyr)
library(tuicalendr)
library(widgetframe)
# set knitr options
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
widgetframe_self_contained = FALSE,
widgetframe_isolate_widgets = TRUE
)
# override custom configuration if present
proj_root <- here::here()
config_path <- fs::path(proj_root, "config", "config.yml")
params_custom <- params
if (fs::file_exists(config_path)) {
# override params with the config stuff
params_custom <- config::get(file = config_path)
}
# set up key variables for processing later
collab_wiki_link <- glue::glue("{collab_github}/wiki", collab_github = params_custom$collab_github)
```
```{r xaringan-themer, include=FALSE, warning=FALSE}
library(showtext)
library(xaringanthemer)
style_mono_accent(
base_color = "#1c5253",
header_font_google = google_font("Josefin Sans"),
text_font_google = google_font("Montserrat", "300", "300i"),
code_font_google = google_font("Fira Mono")
)
```
layout: true
background-image: url(figures/logo.png)
background-position: 100% 90%
background-size: 10%
---
# Thank YOU!
* You could have been doing anything today...
* But you chose to join us for this event!
* Especially a big thank you to our **mentors**
.center[
```{r thank_image, out.width = "35%"}
knitr::include_graphics("http://bit.ly/momtocat")
```
]
---
# Code of Conduct
The `r params_custom$collab_long` (henceforth referred to as the "`r params_custom$collab_short`") is dedicated to providing a **harrassment-free experience** for participants at our event. The `r params_custom$collab_short` is an informal, community-led hackathon intended for prefessional networking and collaboration in the R community.
An inclusive space free of harrassment encourages interaction among diverse groups. We want to **make certain our event is welcoming and encourages participants to be involved** moving forward.
Read more: `r params_custom$coc_link`
---
# Reporting
Several options:
* Message event organizers
* Contact `r params_custom$collab_email`
* Fill out anonymous [report form](`r params_custom$coc_report_link`)
* IF needed, organizers can set up a chat with individual(s) affected
* Let us know if you see things we should be aware of
---
# Event Organizers
**TODO** Add custom R code chunk to loop through organizer avatars and create a row of pictures with their name below.
---
# Need help?
* __Zoom__ troubleshooting - **TODO add points of contact**
* __Slack__ - **TODO add points of contact**
+ ``r params_custom$collab_slack_faq`` for questions
* __GitHub__ access - **TODO add points of contact**
---
# Zoom Basics
* Mute/unmute + video/no video
* Chat window
* Screenshare
* Reactions
* Security - please keep the room links private!
+ They will also __change tomorrow__ for security purposes.
+ Be careful of screenshots you take - make sure they don't include meeting ID
---
# Schedule
* Intended mix of sync / async participation
* Visual version + room sign up: [Goole Sheet](`r params_custom$collab_schedule_link`)
* Written version: [Github wiki page](`r collab_wiki_link`)
---
```{r schedule-play, include=FALSE}
# this is a simple demo of how we can use the {tuicalendr} package to create a javascript calendar!
# create data frame that mimics the r collab schedule
my_schedules <- tibble::tribble(
~title, ~body, ~start, ~end, ~calendarId, ~category,
# Day one
"Intros/Icebreakers", "Introductions & Icebreakers", "2020-04-18 10:00:00", "2020-04-18 11:00:00", "rm1", "time",
"Project Pitches", "Project Pitches & Discussion", "2020-04-18 11:00:00", "2020-04-18 12:00:00", "rm1", "time",
"Reservable time", "Reservable time for tutorials/demos", "2020-04-18 12:00:00", "2020-04-18 16:00:00", "rm1", "time",
"Reservable time", "Reservable time for tutorials/demos", "2020-04-18 12:00:00", "2020-04-18 16:00:00", "rm2", "time",
"Reservable time", "Reservable time for tutorials/demos", "2020-04-18 12:00:00", "2020-04-18 16:00:00", "rm3", "time",
"Regroup/share out", "Regroup and share", "2020-04-18 16:00:00", "2020-04-18 16:30:00", "rm1", "time",
"Open room", "Open room for socialization/chat", "2020-04-18 16:30:00", "2020-04-18 17:30:00", "rm1", "time",
"Open room", "Open room for socialization/chat", "2020-04-18 16:30:00", "2020-04-18 17:30:00", "rm2", "time",
"Open room", "Open room for socialization/chat", "2020-04-18 16:30:00", "2020-04-18 17:30:00", "rm3", "time",
# Day two
"Virtual project stand-up", "Quick recap of project status", "2020-04-19 9:00:00", "2020-04-19 9:30:00", "rm1", "time",
"Reservable time", "Reservable time for tutorials/demos", "2020-04-19 9:30:00", "2020-04-19 14:30:00", "rm1", "time",
"Reservable time", "Reservable time for tutorials/demos", "2020-04-19 9:30:00", "2020-04-19 14:30:00", "rm2", "time",
"Reservable time", "Reservable time for tutorials/demos", "2020-04-19 9:30:00", "2020-04-19 14:30:00", "rm3", "time",
"Project demo prep", "Prep time for demo!", "2020-04-19 14:30:00", "2020-04-19 15:00:00", "rm1", "time",
"Project demo prep", "Prep time for demo!", "2020-04-19 14:30:00", "2020-04-19 15:00:00", "rm2", "time",
"Project demo prep", "Prep time for demo!", "2020-04-19 14:30:00", "2020-04-19 15:00:00", "rm3", "time",
"Project Demos", "Recorded project demos", "2020-04-19 15:00:00", "2020-04-19 16:00:00", "rm1", "time",
"Open room", "Open room for socialization/chat", "2020-04-19 16:00:00", "2020-04-19 17:30:00", "rm1", "time",
"Open room", "Open room for socialization/chat", "2020-04-19 16:00:00", "2020-04-19 17:30:00", "rm2", "time",
"Open room", "Open room for socialization/chat", "2020-04-19 16:00:00", "2020-04-19 17:30:00", "rm3", "time"
)
cal_props <- tibble::tribble(
~id, ~name, ~color, ~bgColor, ~borderColor,
"rm1", "Room 1", "#FFF", "#6CA6CD", "#000000",
"rm2", "Room 2", "#FFF", "#228B22", "#000000",
"rm3", "Room 3", "#FFF", "#FFC125", "#000000"
)
cal_widget <- calendar(defaultView = "day", defaultDate = "2020-04-18", useNav = TRUE) %>%
add_schedule_df(my_schedules) %>%
set_calendars_props_df(cal_props)
```
# Schedule - widget
```{r}
frameWidget(cal_widget, width = "100%", height = "400")
```
---
# Birds of a Feather
* Open time over lunch to discuss a topic that's interesting to you
* If there's something you want to discuss, [sign up](`r params_custom$collab_schedule_link`)!
* Topic ideas:
+ Data visualization
+ Causal inference
+ Reproducibility
+ Communication and reporting
+ Other ideas
---
# Questions?
Don't hesitate to ask us about anything!
``r params_custom$collab_slack_faq`` for future Qs