library("typstcv")
work <- data.frame(
title = c("Technical Assistant", "Junior Professor", "Associate Professor"),
location = c("Bern, Switzerland", "Bern, Switzerland", "Zürich, Switzerland"),
start = as.Date(c("1902-01-01", "1908-01-01", "1909-01-01")),
end = as.Date(c("1908-01-01", "1909-01-01", "1911-01-01")),
description = c("Federal Patent Office", "University of Bern", "University of Zürich")
)
work |>
format_date(end = "end", date_format = "%Y", sort_by = "start") |>
resume_entry()
```{=typst}
#resume-entry(title: "Associate Professor",location: "Zürich, Switzerland",date: "1909 - 1911",description: "University of Zürich",)
#resume-entry(title: "Junior Professor",location: "Bern, Switzerland",date: "1908 - 1909",description: "University of Bern",)
#resume-entry(title: "Technical Assistant",location: "Bern, Switzerland",date: "1902 - 1908",description: "Federal Patent Office",)
```