MrFlick

find_name_index <- function(haystack, needle, idx=c()) {
  if (hasName(haystack, needle)) {
    c(idx, which(names(haystack)==needle))
  } else if (is.list(haystack)) {
    for (i in seq_along(haystack)) {
      obj <- haystack[[i]]
      ret <- Recall(obj, needle, c(idx,i))
      if (!is.null(ret)) return(ret)
    }
  } else {

MrFlick

obs           = obslua
source_name   = ""
total_seconds = 0
timer_state   = 0
time_delta    = 30

cur_seconds   = 0
last_text     = ""
stop_text     = ""
activated     = false

MrFlick

library(httr)
library(jsonlite)
library(ggplot2)
library(ggrepel)

variant <- "4-74853287-G-A"

getVariantData <- function(variant) {
    raw <- GET(paste0("http://pheweb.sph.umich.edu/FinMetSeq/variant/", variant))
    html <- content(raw, as="text")

MrFlick

library(gapminder)
library(dplyr)
library(ggplot2)
library(ggthemes)


mapdata <- map_data("world") %>% 
  mutate(region = recode(region,
                         USA="United States",
                         UK="United Kingdom"))

MrFlick

MrFlick

panel.barchart.alpha <- function (x, y, box.ratio = 1, box.width = box.ratio/(1 + box.ratio), 
    horizontal = TRUE, origin = NULL, reference = TRUE, stack = FALSE, 
    groups = NULL, col = if (is.null(groups)) plot.polygon$col else superpose.polygon$col, 
    border = if (is.null(groups)) plot.polygon$border else superpose.polygon$border, 
    lty = if (is.null(groups)) plot.polygon$lty else superpose.polygon$lty, 
    lwd = if (is.null(groups)) plot.polygon$lwd else superpose.polygon$lwd, 
    alpha = if (is.null(groups)) plot.polygon$alpha else superpose.polygon$alpha, 
    ..., identifier = "barchart") 
{
    plot.polygon <- trellis.par.get("plot.polygon")

MrFlick

# List a variable names (that are not functions) in 
# a quosure
# ideas taken from https://adv-r.hadley.nz/expressions.html

find_vars <- function(x) {
  extr <- function(x) 
    if (is.symbol(x)) {
      as.character(x)
    } else if (is.pairlist(x)) {
      purrr::flatten_chr(purrr::map(as.list(x), find_vars))

MrFlick

Sub animate_to()
    Dim oslide As slide
    Set oslide = ActiveWindow.View.slide
    Dim oeff As effect
    Dim oani As AnimationBehavior
    
    Dim pHeight As Single
    Dim pWidth As Single
    With ActivePresentation.PageSetup
        pHeight = .SlideHeight

MrFlick

library(shiny)
library(tidyverse)

mydata <- tibble::rowid_to_column(mpg)

ui <- fluidPage(
  titlePanel("Sparkler"),
  plotOutput("facet1", brush="facet1_brush"),
  textOutput("numsel"),
  actionButton("done", "Done")

MrFlick

---
title: "Dplyr Introduction"
author: "Matthew Flickinger"
date: "July 12, 2017"
output:
  pdf_document: default
  html_document: default
---

```{r setup, include=FALSE}