info.qmd

---
title: "Practical info"
toc: false
date: ""
sidebar: false
format:
  nbis-course-html:
    number-sections: false
    template-partials:
      - assets/www/title-block.html
execute:
 cache: false
---

This workshop is organised by the **National Bioinformatics
Infrastructure, Sweden (NBIS)**. [NBIS](https://nbis.se) is a platform
of the Science for Life Laboratory
([SciLifeLab](https://www.scilifelab.se/)).

If you would like to get in touch with us regarding this workshop,
please contact us at **edu.population-genomics-in-practice [at]
nbis.se** or **edu.pgip [at] nbis.se**.

## Organizers

::: {.organisers-parent}
::: {.organisers-child}

![](assets/profile/per-unneberg.png)

[Per Unneberg](https://nbis.se/about/staff)

:::
::: {.organisers-child}

![](assets/profile/nikolay-oskolkov.jpg)

[Nikolay Oskolkov](https://nbis.se/about/staff)

:::
::: {.organisers-child}

![](assets/profile/jason-hill.jpg)

[Jason Hill](https://nbis.se/about/staff)

:::
::: {.organisers-child}

![](assets/profile/andre-soares.png)

[André Soares](https://nbis.se/about/staff)

:::

:::

## Venue

The workshop is held onsite in
[Trippelrummet](https://www.bmc.uu.se/scilifelab-navet-inglish/meeting-rooms-in-navet/#anchor-933950)
in [Navet](https://www.bmc.uu.se/scilifelab-navet-inglish/) at the
[Uppsala Biomedical Centre](https://www.bmc.uu.se/), Uppsala.

```{r }
#| label: read-info
#| echo: false
#| eval: true
library(yaml)
library(leaflet)

# set location in _site.yml
loc <- unlist(strsplit(yaml::read_yaml("_site.yml")$location, ";|,"))
dfr <- read.delim("info.csv", sep = ";")
```

:::{.panel-tabset}

## Location

```{r }
#| label: venue-map
#| echo: false
#| eval: true
#| cache: false
#| results: asis
p <- "uppsala"
cat(paste0("\n##### ", tools::toTitleCase(p), "\n"))
dfr1 <- dfr[dfr$location %in% p, , drop = FALSE]
dfr1$address <- gsub(",", "<br>", dfr1$address)
icons <- awesomeIcons(
  icon = dfr1$marker_icon,
  markerColor = dfr1$marker_colour,
  iconColor = "#FFFFFF", library = "fa"
)
htmltools::tagList(leaflet(
  height = 450,
  elementId = paste0("leaflet-", p), width = "auto"
) %>%
  addTiles(urlTemplate = "http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png") %>%
  addAwesomeMarkers(
    lat = dfr1$lat, lng = dfr1$lon,
    label = dfr1$label, popup = dfr1$address, icon = icons
  ) %>%
  setView(lat = dfr1$lat[1], lng = dfr1$lon[1], zoom = 13))
cat(paste0("\n", dfr1$address[1], "\n"))
cat(paste0("\n", dfr1$description[1], "\n"))
```

:::