home_info.Rmd

---
title: "Info"
output:
  bookdown::html_document2:
    highlight: textmate
    toc: false
    toc_float:
      collapsed: true
      smooth_scroll: true
      print: false
    toc_depth: 4
    number_sections: false
    df_print: default
    code_folding: none
    self_contained: false
    keep_md: false
    encoding: 'UTF-8'
    css: "assets/lab.css"
    include:
      after_body: assets/footer-lab.html
---

```{r,child="assets/header-lab.Rmd"}
```

## Location

```{r,eval=TRUE,include=FALSE}
library(yaml)
#library(leaflet)

# set location in _site.yml
loc <- yaml::read_yaml("_site.yml")$location
loc <- "online" # remove when leaflet works

if(loc=="lund") {
  dfr <- data.frame(venue_lat=55.713394,
                    venue_lon=13.206628,
                    venue_address="<b>Department of Biology</b>,Building D, Room Retina D227, Sölvegatan 35,Lund Sweden",
                    description="For Lund city buses, regional buses and regional trains, [click here](https://www.skanetrafiken.se/). You can buy a ticket at the central station in Lund or at the regional bus (card only). You can also use the app [Skånetrafiken](https://www.skanetrafiken.se/biljetter/app2/)",
                    stringsAsFactors=F)
}

if(loc=="umea") {
  dfr <- data.frame(venue_lat=63.820019,
                    venue_lon=20.307814,
                    venue_address="<b>Department of Science and Mathematics Education</b>,Naturvetarhuset A,Umeå University,Universums gränd,90736 Umeå,Sweden",
                    description="[Umeå city buses](http://tabussen.nu/):<br>Pay your bus ticket on the bus (credit card only), or in advance in the ticket machines at Vasaplan or Umeå Airport, or at any Reseinfo centre. It is cheaper to buy the ticket in advance. You can also use the app [Ultra vill mer](https://www.tabussen.nu/ultra/biljetter/appen-ultra-vill-mer/). The bus stop in the city centre is *Vasaplan* and the stop near the course venue is *Universum*. Bus options are 2,5,8 or 9 and takes about 6-7 min.<br><br>[Airport bus](https://www.tabussen.nu/flygbussen/english/):<br>The airport bus (Bus 80) goes from the airport to *Vasaplan* (the city centre), and then passes NUS and Umeå Campus on the way back. The trip takes about 8 min from the airport to *Vasaplan*, and about 15 min the other way. It stops at *Universum* (Umeå Campus) approx. 5 min after leaving *Vasaplan*.",
                    stringsAsFactors=F)
}

if(loc=="uppsala") {
  dfr <- data.frame(venue_lat=59.841949,
                    venue_lon=17.637073,
                    venue_address="<b>SciLifeLab</b>,Entrance C11,Biomedicinskt centrum,Uppsala University,Husargatan 3,75237 Uppsala,Sweden",
                    description="Use the [UL website](www.ul.se) or the [UL app](https://www.ul.se/en/tickets/how-to-buy-a-ticket/the-UL-app/) for bus and train services around Uppsala. For buses from the Centralstation (Train/Bus), take Bus 4 (towards Gottsunda Centrum) or 8 (towards Sunnersta) and get off at the stop *Uppsala Science Park*. Bus tickets can be purchased in the app or directly from the driver using a credit card.",
                    stringsAsFactors=F)
}

if(loc=="linkoping") {
  dfr <- data.frame(venue_lat=58.402748,
                    venue_lon=15.578822,
                    venue_address="<b>Linköping University</b>,Campus Valla, C-house, Entrance 12, 581 83 Linköping, Sweden",
                    description="Use the [Östgötatrafiken website](https://www.ostgotatrafiken.se) or the [Östgötatrafiken app](https://www.ostgotatrafiken.se/kundservice/hur-kan-vi-hjalpa-dig/nya-appen/) for bus services around Linköping. The easiest way to by tickets is through the app, but you can by a travel card in advance which you can load with tickets as described [here](https://www.ostgotatrafiken.se/biljetter/kopa-biljett/utan-app/). From Linköping Resecentrum, take bus 12 (towards Lambohov) or bus 543 (towards Slaka) and get off at the stop *Mäster Mattias väg*.",
                    stringsAsFactors=F)
}
```

```{r,eval=TRUE,echo=FALSE,chunk.title=NULL}
if(loc!="online") {
  address <- paste(unlist(strsplit(dfr$venue_address,split=",")),collapse="<br>")
  leaflet(height=450,width="auto") %>%
    addTiles(urlTemplate='http://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png') %>%
    addMarkers(lat=dfr$venue_lat,lng=dfr$venue_lon,popup=address) %>%
    setView(lat=dfr$venue_lat,lng=dfr$venue_lon,zoom=15)
}
```

```{r,eval=TRUE,echo=FALSE,chunk.title=NULL,results="asis"}
if(loc=="online") {
  cat("The workshop is online only. Zoom and Slack links are sent to participants by email.")
}
```

```{r,eval=TRUE,echo=FALSE,results="asis",chunk.title=NULL}
if(loc!="online") {
  cat("## Travel info")
  cat("\n",dfr$description)
}
```

## Contact

If you would like to get in touch with us regarding the contents of this workshop, kindly submit an issue on the Github [issues](https://github.com/NBISweden/workshop-RNAseq/issues) page.

***