-
Notifications
You must be signed in to change notification settings - Fork 0
/
funding.qmd
59 lines (46 loc) · 2.01 KB
/
funding.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
---
pagetitle: Funding
title: Grant Track
title-block-banner: true
page-layout: custom
toc: false
---
::: {.grid .justify}
::: {.g-col-2}
:::
::: {.g-col-8}
Welcome to **Grant Track**! Grant Track is an online community database of research funding schemes and grants for Palaeobiologists. This framework is provided to support the community in easily keeping track of upcoming and available funding opportunities. To contribute to the database, please complete the following <a href="./form/grant.qmd" style="text-decoration: none" target="_blank">**submission form**</a>. If you notice any issues with the database, please contact <a href="mailto:[email protected]" style="text-decoration: none" target="_blank">**Kilian Eichenseer**</a> or <a href="mailto:[email protected]" style="text-decoration: none" target="_blank">**Lewis A. Jones**</a>.
**An important note:** we strive to make sure all the data here is up-to-date and accurate. However, please always check official information via funders' websites. We hold no responsibility for missed deadlines.
```{r}
#| echo: false
#| column: screen
#| warning: false
# Load libraries
library(googlesheets4)
library(dplyr)
library(DT)
library(reactable)
# Get sheet
df <- read_sheet("https://docs.google.com/spreadsheets/d/18tnaJXHb0BN5pjWm_6dtMUjb-Oijva0HdbXZJpx6EFA/edit?usp=sharing")
# Generate links
df$Name <- paste0("<a href='",df$URL,"' target='_blank'>",df$Name,"</a>")
# Drop URL
df <- df[, -which(colnames(df) %in% c("Date", "URL"))]
df %>%
DT::datatable(style = "bootstrap4",
escape = FALSE,
rownames = FALSE,
colnames = c("Name", "Funder", "Applicant",
"Host", "Career stage", "Award", "Research costs",
"Duration", "Deadline"), options = list(
scrollX='400px',
pageLength = 30,
columnDefs = list(
list(className = 'dt-nowrap', targets = "_all"))
)) %>%
DT::formatStyle(columns = c(1:10), fontSize = '65%')
```
:::
::: {.g-col-2}
:::
:::