cpsievert

library(plotly)

plot_ly(
  type = 'sankey',
  node = list(
    label =  c("a","b", "c", "d", "e", "f", "g", "h"),
    color =  c("black","black","black","black","black","black",
               "black","black"),
    pad = 15,
    thickness = 15,

cpsievert

library(grid)
(a <- arrow())
#> $angle
#> [1] 30
#> 
#> $length
#> [1] 0.25inches
#> 
#> $ends
#> [1] 2

cpsievert

library(plotly)
library(htmlwidgets)

plot_ly(x = c(1, 2), y = c(1, 2)) %>%
  onRender(
    'function(el, x) { 
      setTimeout(function() {
        var gd = document.getElementById(el.id);
        var obj = {"mode": "markers"};
        for (var i = 0; i < 10; i++) {

cpsievert

library(sf)
library(dplyr)
library(albersusa)
library(crosstalk)
library(plotly)

usa <- usa_sf("laea")

# st_centroid gets the center POINT of polygons
uscenter <- usa %>% 

cpsievert

library(tidyverse)
library(plotly)

# I'm being lazy, please don't do this
# setwd("~/Downloads/Version 2_0_1/")

d <- read_csv('GEOSTAT_grid_POP_1K_2011_V2_0_1.csv') %>%
  rbind(read_csv('JRC-GHSL_AIT-grid-POP_1K_2011.csv') %>%
          mutate(TOT_P_CON_DT = '')) %>%
  mutate(

cpsievert

library(crosstalk)
library(htmltools)

m <- SharedData$new(mtcars)

set_values <- function(w, sharedData, values) {
  script <- sprintf(
    "HTMLWidgets.addPostRenderHandler(function() { return crosstalk.group('%s').var('%s').set(%s); })",
    sharedData$groupName(), "filter", jsonlite::toJSON(values)
  )

cpsievert

library(plotly)
library(tidyr)
library(crosstalk)

m <- gather(mtcars, variable, value, -vs)
msd <- SharedData$new(m, ~variable)
gg <- ggplot(msd, aes(factor(vs), value)) + 
    geom_jitter(alpha = 0.3)

bscols(widths = c(11, 6, 6),

cpsievert

# devtools::install_github("ropensci/plotly")
library(plotly)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"))

# shared data will make the polygons "query-able"
ncsd <- crosstalk::SharedData$new(nc)

p <- ggplot(ncsd) +
  geom_sf(aes(fill = AREA, text = paste0(NAME, "\n", "FIPS: ", FIPS))) +

cpsievert

cpsievert

# setwd("~/Downloads")

readKMZ <- function(f = NULL) {
  zip <- paste0(f, ".zip")
  file.rename(f, zip)
  unzip(zip)
  geojsonio::geojson_read("doc.kml", what = "sp")
}

pts <- readKMZ("MWAHIST12282016.kmz")