| library("tidyverse") | |
| journeys <- read_csv("data/clean-journeys.csv") | |
| journeys %>% | |
| count(start.country, date) | |
| journeys %>% | |
| group_by(start.country) %>% # hello! |
| library("tidyverse") | |
| #> ── Attaching packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ── | |
| #> ✔ ggplot2 2.2.1.9000 ✔ purrr 0.2.4 | |
| #> ✔ tibble 1.4.2 ✔ dplyr 0.7.4 | |
| #> ✔ tidyr 0.8.0 ✔ stringr 1.2.0 | |
| #> ✔ readr 1.1.1 ✔ forcats 0.2.0 | |
| #> ── Conflicts ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ── | |
| #> ✖ dplyr::filter() masks stats::filter() | |
| #> ✖ dplyr::lag() masks stats::lag() | |
| library("sf") |
| <!--html_preserve--> | |
| <div class="row"> | |
| <div class="col-md-6"> | |
| foobar | |
| </div> | |
| <div class="col-md-6"> | |
| fubar | |
| </div> | |
| </div> |
| --- | |
| title: Get data | |
| date: '2018-11-22' | |
| slug: get-data | |
| --- | |
| Download data | |
| ```{r} | |
| library("rfigshare") |
| drink.name | retailer | type | year | |
|---|---|---|---|---|
| Christmas brulee latte | Starbucks | coffee | 2018 | |
| Flat white cinnamon | Starbucks | coffee | 2018 | |
| Toffee nut latte | Starbucks | coffee | 2018 | |
| Gingerbread latte | Starbucks | coffee | 2018 | |
| Eggnog latte | Starbucks | coffee | 2018 | |
| Salted caramel brownie hot chocolate | Starbucks | hot chocolate | 2018 | |
| Caramelised almond brittle latte | Café Nero | coffee | 2018 | |
| Salted caramel latte | Café Nero | coffee | 2018 | |
| Belgian truffle hot chocolate | Café Nero | hot chocolate | 2018 |
Dropdown menus in shiny apps (created with selectInput()) will appear below the zoom buttons in a leaflet map without intervention.
The issues is due to the z-index of the different web elements, which controls what appears on top of what. To change the z-index of the dropdown menu we can use div(control, style = "position:relative;z-index:10000;"
| --- | |
| title: "Google Doodle" | |
| output: html_document | |
| editor_options: | |
| chunk_output_type: console | |
| --- | |
| ```{r get-google-foo-url} | |
| library("tidyverse") | |
| library("rvest") |
This script generates a follower follow network from your most recent followers.
I ran this script during my BristolR talk, I've hard coded the followers I got during the talk
## Hard coded ids of new followers during talk
new_followers <- tibble(
user_id = c(16307367,1571967648,9864992,1409778128, 579777616,29462710,3900399077,45871230,76908793))
| --- | |
| output: html_document | |
| editor_options: | |
| chunk_output_type: console | |
| --- | |
| ```{r setup, include=FALSE, message = FALSE, warning = FALSE} | |
| knitr::opts_chunk$set( | |
| echo = FALSE, | |
| message = FALSE, |