-
Notifications
You must be signed in to change notification settings - Fork 0
/
cpd-report.qmd
68 lines (54 loc) · 1.65 KB
/
cpd-report.qmd
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
---
title: "Continuing Professional Development Report"
author: "Rhian Davies"
output:
html_document:
theme: united
toc: yes
toc_float: yes
number_sections: yes
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library("lubridate")
library("gt")
library("emo")
library("levelup")
library("dplyr")
df = import_cpd(path = "cpd-records")
```
# Overall summary
This document contains a record of my Continuous Professional Development activities.
CPD should be a key part of a professional statistician's work ethic. CPD means the development of the "whole person" statistical and non-statistical, technical and personal. CPD evaluation is essentially a self-assessment process.
Each year, I should have at least 60 hours of learning hours, across at least three of the following pre-defined categories.
* Work based learning
* Professional activity
* Formal / educational
* Self-directed learning
* Other
```{r annual total, echo = FALSE}
df =
df %>%
mutate(year = year(start_date)) %>%
mutate(learning_hours = as.numeric(learning_hours))
df %>%
group_by(year) %>%
summarise(total_hours = sum(learning_hours)) %>%
mutate(emoji = ifelse(total_hours >= 60, emo::ji("check"), emo::ji("x"))) %>%
arrange(desc(year)) %>%
gt() %>%
cols_label(
year = md("**Year**"),
total_hours = md("**Learning Hours**"),
emoji = ""
)
```
```{r, echo = FALSE, results = "asis"}
years = sort(unique(df$year), decreasing = TRUE)
md = lapply(years, function(y) {
knitr::knit_child(
'annual-template.qmd', envir = environment(), quiet = TRUE
)
})
cat(unlist(md), sep = '\n')
```