Skip to content

Instantly share code, notes, and snippets.

View cpsievert's full-sized avatar

Carson Sievert cpsievert

1k followers · 141 following
View GitHub Profile
@cpsievert
cpsievert / _site.yml
Created November 6, 2019 15:32
name: "site"
output:
html_document:
theme: sketchy
bootstrap_version: 4
theme_variables:
primary: pink
font-size-base: 1.5rem
navbar:
title: "My Website"
@cpsievert
cpsievert / scatter-to-density.R
Created October 29, 2019 21:39
library(shiny)
mtcars$.key <- row.names(mtcars)
ui <- fluidPage(
  plotlyOutput("scatter"),
  plotlyOutput("bars")
)
server <- function(input, output, session) {
@cpsievert
cpsievert / us-states.json
Created October 2, 2019 21:37
Loading
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@cpsievert
cpsievert / leaflet-subapp.Rmd
Created September 19, 2019 18:03
---
title: "Subapp test"
output: html_document
runtime: shiny
---
Check your JS console for errors
```{r}
library(shiny)
@cpsievert
cpsievert / flex-shiny-session.Rmd
Created July 24, 2019 15:57
---
title: "Untitled"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
runtime: shiny
---
```{r setup, include=FALSE}
@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) {