Navigation Menu

Skip to content

Instantly share code, notes, and snippets.

View hinkelman's full-sized avatar

Travis Hinkelman hinkelman

View GitHub Profile
@hinkelman
hinkelman / server.R
Created October 17, 2013 17:22
Demo of problem with renderUI and animation slider
library(shiny)
grp <- c(rep("A", 900), rep("B", 1200))
# Define server logic for slider examples
shinyServer(function(input, output) {
sub <- reactive({
grp[grp %in% input$group]
})
@hinkelman
hinkelman / channels.csv
Created June 7, 2014 05:03
leaflet-shiny and polyline feature
We can't make this file beautiful and searchable because it's too large.
"long","lat","order","channel_nu"
-121.261057484636,37.6815112376221,1,1
-121.260685407795,37.6816943691391,2,1
-121.259601724614,37.6821578988618,3,1
-121.258374209915,37.6826360035905,4,1
-121.257599684439,37.6832515704428,5,1
-121.257185306287,37.683826477333,6,1
-121.256684530719,37.6842910308388,7,1
-121.25637683715,37.6849134803688,8,1
-121.256303205297,37.6853954732947,9,1
This file has been truncated, but you can view the full file.
{
"type": "FeatureCollection",
"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
"features": [
{ "type": "Feature", "properties": { "OBJECTID": 1, "length_ft": 18100, "channel_nu": 1, "SHAPE_Leng": 5608.700802909999766, "up_node": 1, "down_node": 2, "Enabled": 1, "copylength": 5609, "cfslen": 5608.700802909999766, "len": 5.60870080291, "length_mil": 3.48507813464, "x": 652501.4323, "y": 4175026.7346, "km": 5.60870080291 }, "geometry": { "type": "LineString", "coordinates": [ [ -121.261057484636169, 37.68151123762209 ], [ -121.260685407794867, 37.681694369139052 ], [ -121.259601724613617, 37.682157898861817 ], [ -121.258374209915488, 37.68263600359051 ], [ -121.257599684438858, 37.683251570442827 ], [ -121.2571853062869, 37.683826477333028 ], [ -121.25668453071853, 37.684291030838757 ], [ -121.256376837149659, 37.684913480368841 ], [ -121.256303205296916, 37.685395473294669 ], [ -121.25634827630