forked from bcgov/FFEC-website
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathabout.qmd
109 lines (93 loc) · 5.08 KB
/
about.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
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
---
title: "Who we are"
comments: false
---
```{r setup, include = FALSE}
source("_common.R")
Require::Require(c("data.table", "kableExtra (==1.3.4)","htmltools","markdown"))
```
The Future Forest Ecosystems Centre is a brand new research-oriented
team at the Forest Carbon and Climate Services Branch of the Office of
the Chief Forester (BC Ministry of Forests).
Started in 2022, the FFEC has put together a team of researchers to
answer complex questions about the stability and resilience for British
Columbia's forests to the effects of ongoing climate change, drought,
pests and fire.
To answer these complex questions, we use a using a variety of
approaches from advanced statistical modelling to downscale climate
projections and complex ecological landscape simulation modelling, to
collecting and analysing dendrochronological data to investigate tree
and stand responses to climate warming and drought.
## Team profiles
```{r teamprofiles, echo = FALSE, results = 'asis'}
profileTab <- data.table(nameShort = c("Aseem", "Ceres", "Colin",
"Kiri", "Vanessa", "Vivek", "Will", "Xin"),
photo = "",
nameDesc = "")
## add photos and descriptions -- not ideal, but Visual screws up the URLs
profileTab[nameShort == "Colin",
photo := "{width='350'}"]
profileTab[nameShort == "Colin",
nameDesc := paste("[Dr Colin Mahony](https://www.researchgate.net/profile/Colin-Mahony)",
"Research Climatologist and FFEC Team Lead",
"",
htmltools::includeMarkdown("bios/colin_bio.rmd"),
sep = "<br>")]
profileTab[nameShort == "Xin",
photo := "{width='350'}"]
profileTab[nameShort == "Xin",
nameDesc := paste("[Xin Yuan, RPF, MSc](https://ca.linkedin.com/in/yuanforestry)",
paste("Manager, Research Section (Forest Carbon and Climate Services",
"Branch, Office of the Chief Forester, Ministry of Forests"),
"",
htmltools::includeMarkdown("bios/xin_bio.rmd"),
sep = "<br>")]
profileTab[nameShort == "Aseem",
photo := "{width='350'}"]
profileTab[nameShort == "Aseem",
nameDesc := paste("[Dr Aseem Sharma](https://sites.google.com/view/aseemrajsharma/home)",
"Research Climatologist",
"",
htmltools::includeMarkdown("bios/aseem_bio.rmd"),
sep = "<br>")]
profileTab[nameShort == "Ceres",
photo := "{width='350'}"]
profileTab[nameShort == "Ceres",
nameDesc := paste("[Dr Ceres Barros](https:/www.researchgate.net/profile/Ceres-Barros)",
"Research Ecologist",
"",
htmltools::includeMarkdown("bios/ceres_bio.rmd"),
sep = "<br>")]
profileTab[nameShort == "Kiri",
photo := "{width='350'}"]
profileTab[nameShort == "Kiri",
nameDesc := paste("[Kiri Daust, BSc](https://www.researchgate.net/profile/Kiri-Daust)",
"Data Scientist",
"",
paste(
"<!--TODO: add description-->"
),
sep = "<br>")]
profileTab[nameShort == "Vanessa",
photo := "{width='350'}"]
profileTab[nameShort == "Vanessa",
nameDesc := paste(paste("[Vanessa Comeau,",
"MSc](https://www.researchgate.net/profile/Vanessa-Comeau-2)"),
"Research Ecologist",
"",
htmltools::includeMarkdown("bios/vanessa_bio.rmd"),
sep = "<br>")]
profileTab[nameShort == "Vivek",
photo := "{width='350'}"]
profileTab[nameShort == "Vivek",
nameDesc := paste("[Dr Vivek Srivastava](https://www.researchgate.net/profile/Vivek-Srivastava-9)",
"Data Scientist",
"",
htmltools::includeMarkdown("bios/vivek_bio.rmd"),
sep = "<br>")]
kable(profileTab[, .(photo, nameDesc)], format = "html", escape = FALSE, col.names = NULL) |>
kable_styling(full_width=TRUE) |>
# collapse_rows(columns = c(1,2), valign="top") |>
column_spec(column = 1, border_right = TRUE, width = "4cm") |>
print()
```