Skip to content

Instantly share code, notes, and snippets.

View gadenbuie's full-sized avatar

Garrick Aden-Buie gadenbuie

1.1k followers · 297 following
View GitHub Profile
@gadenbuie
gadenbuie / covid-19-fl-cases-by-zip.md
Last active April 10, 2020 16:18 
library(tidyverse)
fl_zip <- read_csv("https://raw.githubusercontent.com/gadenbuie/covid19-florida/master/data/covid-19-florida_arcgis_cases-by-zip.csv")

vec_proxy.sfc <- function(x) {
  class(x) <- setdiff(class(x), "sfc")
  vctrs::vec_proxy(x)
}

fl_counties <-
@gadenbuie
gadenbuie / covid_preparedness.R
Created April 16, 2020 14:09
library(purrr)
# https://health.appliedxl.com/preparedness
covid_preparedness_score <-
jsonlite::read_json("https://health.appliedxl.com/jsons/health.json") %>%
map_dfr(~ .)
@gadenbuie
gadenbuie / covid-test-death-delay.md
Created April 21, 2020 15:33 
library(tidyverse)

cvd_states <- read_csv(
  "https://covidtracking.com/api/v1/states/daily.csv",
  col_types = cols(
    .default = col_double(),
    date = col_date("%Y%m%d"),
    state = col_character(),
    hash = col_character(),
@gadenbuie
gadenbuie / .shrtcts.R
Last active September 7, 2021 01:36
#' Restart RStudio
#'
#' @id 6
#' @interactive
usethis:::restart_rstudio
#' Go to Source File Location
#'
#' @description Navigate to current source file in Files pane
#' @id 1
@gadenbuie
gadenbuie / check-urls.R
Last active May 8, 2020 13:54
check a page or blog post for valid urls
library(dplyr)
library(purrr)
library(stringr)
library(rvest)
library(crul)
base_url <- "https://deploy-preview-NN--USERNAME.netlify.app/"
page_url <- file.path(base_url, "blog/post")
page <- read_html(page_url)
@gadenbuie
gadenbuie / epoxyHTML_app.R
Last active May 9, 2020 19:42
Demo of epoxyHTML()
library(shiny)
library(epoxy) # gadenbuie/epoxy
ui <- fluidPage(
h2("epoxyHTML demo"),
epoxyHTML(
'test', # output id
# Regular Shiny elements
fluidRow(
tags$div(
@gadenbuie
gadenbuie / untidy-data.R
Last active June 4, 2020 14:45
`%>%` <- magrittr::`%>%`
tumors <- tibble::tribble(
~mrn, ~sequence, ~age, ~tumor_size, ~tumor_unit,
289034L, 1L, 47L, 0.9, "cm",
289034L, 2L, 47L, 35.2, "mm",
290660L, 1L, 49L, 30, "mm",
290660L, 2L, 49L, 15.5, "mm",
341050L, 1L, 61L, 14.7, "mm",
341050L, 2L, 70L, 2.1, "cm",
@gadenbuie
gadenbuie / inline-text-input.Rmd
Created June 12, 2020 20:45
---
pagetitle: Inline Text Input Example
example:
title: Inline Text Input Example
runtime: repl
mode:
document: html
initial:
js: |-
let inlineInputs = document.querySelectorAll('.inline-text-input input[type="text"]')
@gadenbuie
gadenbuie / app.R
Created June 16, 2020 18:03
library(shiny)
# remotes::install_github("gadenbuie/epoxy@shiny-inline-inputs")
library(epoxy)
# Module ------------------------------------------------------------------
epoxyModTestUI <- function(id) {
ns <- NS(id)
tagList(
h2("Is it rainy there?"),
epoxyHTML(
@gadenbuie
gadenbuie / reinstall-packages.R
Last active September 7, 2020 14:13
# Step 1 ------------------------------------------------------------------
# Before updating R...
`%>%` <- magrittr::`%>%`
# Thanks Chuck Powell - https://ibecav.github.io/update_libraries/
package_source <- function(pkg){
x <- as.character(packageDescription(pkg)$Repository)
if (length(x)==0) {