Carson Sievert cpsievert

## _site.yml
name: "site"
output:
  html_document:
    theme: sketchy
    bootstrap_version: 4
    theme_variables:
      primary: pink
      font-size-base: 1.5rem
navbar:
  title: "My Website"

## scatter-to-density.R
library(shiny)

mtcars$.key <- row.names(mtcars)

ui <- fluidPage(
  plotlyOutput("scatter"),
  plotlyOutput("bars")
)

server <- function(input, output, session) {

## us-states.json

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                cpsievert
                / us-states.json
            
            
              Created Oct 2, 2019
            
          
      View us-states.json
  
    
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## leaflet-subapp.Rmd
---
title: "Subapp test"
output: html_document
runtime: shiny
---

Check your JS console for errors

```{r}
library(shiny)

## flex-shiny-session.Rmd
---
title: "Untitled"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}

## proxy-dashboard.Rmd
---
title: "dash"
output: flexdashboard::flex_dashboard
runtime: shiny_prerendered
---


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

## plotly-proxy-rmd.Rmd
---
title: "Untitled"
output: html_document
runtime: shiny_prerendered
---

```{r}
library(plotly)
plotlyOutput("p")
```

## leaflet-proxy-rmd.Rmd
---
title: "Untitled"
output: html_document
runtime: shiny_prerendered
---

```{r}
library(leaflet)
leafletOutput("map")
```

## index.html
<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],

## line-on-brush.R
library(plotly)
library(crosstalk)
library(htmlwidgets)

mtcars %>%
  SharedData$new() %>%
  plot_ly(x = ~wt, y = ~mpg) %>%
  highlight("plotly_selected", dynamic = TRUE) %>%
  onRender(
"function(el, x) {