-
Notifications
You must be signed in to change notification settings - Fork 0
/
updates.qmd
103 lines (94 loc) · 4.76 KB
/
updates.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
---
title: "Project Updates"
listing:
contents: updates
sort: 'date desc'
sidebar: false
---
```{r}
#| echo: false
#| message: false
#| warning: false
#### Load required packages ####
library(timevis)
library(dplyr)
#### Initialize data frame for timevis timeline view ####
# We used the add_row feature from tidy_verse to build our timeline; if a new update is needed, simply copy the last add_row command (three lines), add a '%>%' to the end of the last row, paste the three lines that were copied onto the end, and change the values for id, content, and start
timeItems <- data.frame(# The id is a unique identifier for a given update
id = character(),
# The content contains an HTML-coded link to the update post; this will alwyas be under '/robinson-sport-fish/updates/'. The link should be the name of the quarto file added for the update, but with .html instead of .qmd. The text that will show up in the timeline (linked to the update file) comes in between the carates of the html code. If there is no linked update post, simply add the text of what you want to show on the timeline
content = character(),
start = character(), # This is the date of the update
end = character() # This is the end date of the update. Typically this will only be filled in for multi-day events
) %>%
add_row(id = "receivers",
content = '<a href ="/robinson-sport-fish/updates/receivers.html">Receivers Deployed</a>',
start = "2022-04-18") %>%
add_row(id = "website",
content = '<a href ="/robinson-sport-fish/updates/first.html">Website Deployed</a>',
start = "2022-06-16") %>%
add_row(id = "start",
content = "Project start; planning and purchasing begins",
start = "2021-10-01") %>%
add_row(id = "tag1",
content = '<a href ="/robinson-sport-fish/updates/tagging1.html">22 fish tagged</a>',
start = "2022-04-27") %>%
add_row(id = "download1",
content = '<a href ="/robinson-sport-fish/updates/download1.html">First data download</a>',
start = "2022-08-24") %>%
add_row(id = "talk1",
content = '<a href = "https://www.youtube.com/watch?v=H_kvWPZzJ7Y">Virtual Outreach Event</a>',
start = "2022-09-15") %>%
add_row(id = "talk2",
content = "In-Person Outreach Event<br>
Robinson Preserve, 9am-11am",
start = "2022-11-12") %>%
add_row(id = "tag2",
content = '<a href ="/robinson-sport-fish/updates/tagging2.html">4 fish tagged</a>',
start = "2022-11-17") %>%
add_row(id = "download2",
content = '<a href ="/robinson-sport-fish/updates/download2.html">Second data download</a>',
start = "2022-12-05") %>%
add_row(id = "youtube",
content = '<a href ="https://youtube.com/shorts/2IWgYjh7rh8?feature=share">Youtube Short published</a>',
start = "2023-02-07") %>%
add_row(id = "download3",
content = '<a href ="/robinson-sport-fish/updates/download3.html">Third data download</a>',
start = "2023-02-22") %>%
add_row(id = "tag3",
content = '<a href ="/robinson-sport-fish/updates/tagging3.html">15 fish tagged</a>',
start = "2023-03-28") %>%
add_row(id = "download4",
content = '<a href ="/robinson-sport-fish/updates/download4.html">Fourth data download</a>',
start = "2023-05-18") %>%
add_row(id = 'tag4',
content = '<a href ="/robinson-sport-fish/updates/tagging4.html">9 fish tagged</a>',
start = "2023-06-29") %>%
add_row(id = "download5",
content = '<a href ="/robinson-sport-fish/updates/download5.html">Fifth data download</a>',
start = "2023-08-15") %>%
add_row(id = "download6",
content = '<a href ="/robinson-sport-fish/updates/download6.html">Sixth data download</a>',
start = "2023-11-17") %>%
add_row(id = "download7",
content = '<a href ="/robinson-sport-fish/updates/download7.html">Seventh data download</a>',
start = "2024-02-29") %>%
add_row(id = "download8",
content = '<a href ="/robinson-sport-fish/updates/download8.html">Eighth data download</a>',
start = "2024-05-29") %>%
add_row(id = "download9",
content = '<a href ="/robinson-sport-fish/updates/download9.html">Ninth data download</a>',
start = "2024-08-20")
# Create the timevis visualization
tv <- timevis(timeItems,fit = TRUE)
# Set the visual style for the timevis visualization
style <- "
/* alternating column backgrounds */
.vis-time-axis {
background: white;
}
"
# Add the visual style, and plot the visualization
tv <- htmltools::tagList(htmltools::tags$style(style), tv)
tv
```