jkaupp

library(tidyverse)
library(ggbeeswarm)

data <- read_csv("https://gist.githubusercontent.com/dgkeyes/a9b47cfa9a7bd8313e5603d18cf3d444/raw/3de0e4074db23636ebd420af78e90c4009aa10c7/oregon-economic-mobility-data.csv") %>% 
  set_names(c("county", "percent")) %>% 
  mutate(percent = parse_number(percent))

mean <- mean(data$percent)

ggplot(data, aes(x = percent, y = 0)) +

jkaupp

# License: Apache 2.0

turbo_colormap_data <- matrix(
  c(
    c(0.18995, 0.07176, 0.23217),
    c(0.19483, 0.08339, 0.26149),
    c(0.19956, 0.09498, 0.29024),
    c(0.20415, 0.10652, 0.31844),
    c(0.20860, 0.11802, 0.34607),
    c(0.21291, 0.12947, 0.37314),

jkaupp

---
title: "Character Statistics From A Galaxy Far, Far Away"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)

jkaupp

library(tidyverse)
library(lubridate)
library(glue)
library(rvest)
libray(janitor)

scrape_nfl_table <- function(url, page) {
  

  glue("{url}&d-447263-p={page}") %>% 

jkaupp

library(tidyverse)
library(rlang)

merge_tbls <- function(x) {
  
  col <- sym(names(x)[1])
  
  idx <- filter(x, grepl("#", !!col)) %>% 
    pull(!!col) %>% 
    parse_number()

jkaupp

library(tidyverse)
library(qualtRics)
library(rlang)
library(viridis)
library(hrbrthemes)

registerOptions(api_token="TOTALLY_NOT_MY_TOKEN", root_url="https://queensu.qualtrics.com")

surveys <- getSurveys()

jkaupp

library(tidyverse)
library(nycflights13)
  
plot_data <- flights %>% 
  filter(carrier %in% c("AA","UA")) %>% 
  count(year, month, carrier)

ggplot(plot_data, aes(x = month, y = n, group = carrier)) +
  geom_path() +
  geom_text(data = filter(plot_data, month == 12), aes(label = carrier), nudge_x = 0.5) +

jkaupp

ceab_docs <- list.files('~/owncloud/feas/ceab/ceab reports/2016', pattern = ".pdf", full.names = TRUE, recursive = TRUE)

library(pdftools)

test <- tibble(dept = stri_extract_first_regex(ceab_docs, "CIVL|CHEE|CMPE|ENPH|ENCH|ELEC|GEOE|MECH|MTHE|MINE"), doc = basename(ceab_docs), path = ceab_docs) %>%
  mutate(pages = map_dbl(path, ~pdf_info(.x)$pages)) %>%
  bind_rows(., summarize(., dept = "Total",
                      doc = "Overall",
                      path = NA_character_,
    pages = sum(pages))) %>%

jkaupp

Simple automated GIT Deployment using GIT Hooks

Here are the simple steps needed to create a deployment from your lokal GIT repository to a server based on this in-depth tutorial.

How it works

You are developing in a working-copy on your local machine, lets say on the master branch. Most of the time, people would push code to a remote server like github.com or gitlab.com and pull or export it to a production server. Or you use a service like my Deepl.io to act upon a Web-Hook that's triggered that service.

jkaupp

/*
 * I add this to html files generated with pandoc.
 */

html {
  font-size: 100%;
  overflow-y: scroll;
  -webkit-text-size-adjust: 100%;
  -ms-text-size-adjust: 100%;
}