Skip to content

Instantly share code, notes, and snippets.

View cpsievert's full-sized avatar

Carson Sievert cpsievert

956 followers · 141 following
View GitHub Profile
@cpsievert
cpsievert / proxy-dashboard.Rmd
Created March 28, 2019 15:48
For https://community.rstudio.com/t/updating-a-plotly-chart-in-shiny-using-flexdashboard/27176
---
title: "dash"
output: flexdashboard::flex_dashboard
runtime: shiny_prerendered
---
```{r setup, include=FALSE}
library(tidyverse)
library(plotly)
@cpsievert
cpsievert / plotly-proxy-rmd.Rmd
Created March 28, 2019 15:41
---
title: "Untitled"
output: html_document
runtime: shiny_prerendered
---
```{r}
library(plotly)
plotlyOutput("p")
```
@cpsievert
cpsievert / leaflet-proxy-rmd.Rmd
Created March 28, 2019 15:35
For https://community.rstudio.com/t/updating-a-plotly-chart-in-shiny-using-flexdashboard/27176
---
title: "Untitled"
output: html_document
runtime: shiny_prerendered
---
```{r}
library(leaflet)
leafletOutput("map")
```
@cpsievert
cpsievert / index.html
Created July 16, 2018 18:00
<head>
<!-- Plotly.js -->
<script src="https://cdn.plot.ly/plotly-latest.min.js"></script>
</head>
<body>
<div id="graph"></div>
<script>
var dat = [{
"x": [1,2,3,4,5],
@cpsievert
cpsievert / line-on-brush.R
Created February 9, 2018 17:00
Draw line shapes outlining brush
library(plotly)
library(crosstalk)
library(htmlwidgets)
mtcars %>%
SharedData$new() %>%
plot_ly(x = ~wt, y = ~mpg) %>%
highlight("plotly_selected", dynamic = TRUE) %>%
onRender(
"function(el, x) {
@cpsievert
cpsievert / cumulative-last-first.R
Created February 9, 2018 16:36
Cumulative animation where last frame is shown first
accumulate_by <- function(dat, var, showLastFirst = FALSE) {
var <- lazyeval::f_eval(var, dat)
lvls <- plotly:::getLevels(var)
dats <- lapply(seq_along(lvls), function(x) {
cbind(dat[var %in% lvls[seq(1, x)], ], frame = lvls[[x]])
})
if (showLastFirst) {
lastFrame <- dats[[length(dats)]]
# you will likely have to fiddle with this value
lastFrame$frame <- 0
@cpsievert
cpsievert / counties.geojson
Created January 3, 2018 18:31
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@cpsievert
cpsievert / volcano-plot-snp.R
Last active February 9, 2018 16:43
Volcano plot with the ability to query snp codes
# install.packages("plotly")
library(plotly)
library(htmlwidgets)
# grab some fake data from manhattanly
# note this is a data.frame!
# you can convert a matrix to a data frame with as.data.frame()
download.file("https://github.com/sahirbhatnagar/manhattanly/raw/master/data/HapMap.rda", "HapMap.rda")
load("HapMap.rda")
@cpsievert
cpsievert / simplify.R
Created December 22, 2017 18:06
fromJSON simplification
library(jsonlite)
txt <- '{
"points": [{
"curveNumber": 0,
"text": "a",
"pointNumber": 0,
"customdata": "c.a",
"y": 4,
"x": 1
@cpsievert
cpsievert / choropleth.R
Created December 1, 2017 22:42
library(dplyr)
library(tidyr)
library(readr)
# For other measures, see http://ghdx.healthdata.org/us-data
# TODO: do this on the county level for more interesting data, like this post - https://fivethirtyeight.com/features/mortality-black-belt/
obesity <- read_csv("http://ghdx.healthdata.org/sites/default/files/record-attached-files/IHME_USA_OBESITY_PHYSICAL_ACTIVITY_2001_2011.csv")
# reshape data so value tracks
ob <- obesity %>%