Zev Ross zross

## spatial_example.R
# An example of spatial analysis with R that involves grabbing data
# from a PostGIS database, joining to tabular data, projecting
# simplifying and creating an interactive map.

# This data is publicly available but requires some processing
# if you want the county boundaries you can find them here:

# cftp://ftp2.census.gov/geo/tiger/TIGER2016/COUNTY/

# The tabular data requires some processing but the raw data

## businesses.json

      
              2 files
            
          
              1 fork
            
          
              0 comments
            
          
              0 stars
            
          
                zross
                / businesses.json
            
            
              Last active
              January 4, 2018 08:11
            
              
                Leaflet.js Tips, Step 4 (filter geojson markers)
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## nested_for_loops.R
# The idea I'm trying to test is if I can nest a parallel
# for loop inside another parallel for loop.

# The following does open up 4 cores with the first loop
# and opens an additional 3 cores with the second. I see
# seven running at one time, the four are turned off then
# 3 are turned off.

# I'm not sure if this is truly 7 parallel cores or if it's
# 4 then 3 sequentially.

## index.html
<!DOCTYPE html>
<html>
  <head>
    <title>HTML5</title>
    <meta charset="utf-8" />
    <meta name="viewport" content="width=650, user-scalable=yes">


    <!--[if IE]>
    <script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>

## markdown_style.css
body{
  color:red;
}

## index.html
<!DOCTYPE html>
<html>

<head>
    <meta charset="utf-8" />
    <link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.7/leaflet.css" />
    <script src="http://d3js.org/d3.v3.min.js" type="text/javascript"></script>
    <script src="http://cdn.leafletjs.com/leaflet-0.7/leaflet.js"></script>
    <script src='https://api.tiles.mapbox.com/mapbox.js/v1.6.4/mapbox.js'></script>
    <link href='https://api.tiles.mapbox.com/mapbox.js/v1.6.4/mapbox.css' rel='stylesheet' />

## index.html
<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="utf-8">
    <link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.7/leaflet.css" />
    <script src="http://cdn.leafletjs.com/leaflet-0.7.3/leaflet.js"></script>
    <script src='https://api.tiles.mapbox.com/mapbox.js/v1.6.4/mapbox.js'></script>
    <style type="text/css">
    #map {
        width: 600px;

## index.html
<!DOCTYPE html>
<html>
<head>
    <title>Leaflet GeoJSON Example</title>
    <meta charset="utf-8">
    <meta content="width=device-width, initial-scale=1.0" name="viewport">
    <link href="http://cdn.leafletjs.com/leaflet-0.7/leaflet.css" rel="stylesheet">
    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.9.0/jquery.min.js"></script>
    <script src="http://cdn.leafletjs.com/leaflet-0.7/leaflet.js"></script>
    <style>

## sf_dplyr.R
library(dplyr)
nc = st_read(system.file("shape/nc.shp", package="sf"))
nc$blah <- sample(c(1,2,3), size = nrow(nc), replace = TRUE)
nc %>% group_by(blah) %>% summarize(avg_bir74 = mean(BIR74))

## index.html
<!DOCTYPE html>
<html>
<head>
  <title>HTML5</title>
  <meta charset="utf-8" />
  <meta name="viewport" content="width=650, user-scalable=yes">
  <script src="http://d3js.org/d3.v3.min.js"></script>
  <script src="http://libs.cartocdn.com/cartodb.js/v2/cartodb.js">
  </script>
  <style>
	# An example of spatial analysis with R that involves grabbing data
	# from a PostGIS database, joining to tabular data, projecting
	# simplifying and creating an interactive map.

	# This data is publicly available but requires some processing
	# if you want the county boundaries you can find them here:

	# cftp://ftp2.census.gov/geo/tiger/TIGER2016/COUNTY/

	# The tabular data requires some processing but the raw data
	# The idea I'm trying to test is if I can nest a parallel
	# for loop inside another parallel for loop.

	# The following does open up 4 cores with the first loop
	# and opens an additional 3 cores with the second. I see
	# seven running at one time, the four are turned off then
	# 3 are turned off.

	# I'm not sure if this is truly 7 parallel cores or if it's
	# 4 then 3 sequentially.
	<!DOCTYPE html>
	<html>
	<head>
	<title>HTML5</title>
	<meta charset="utf-8" />
	<meta name="viewport" content="width=650, user-scalable=yes">


	<!--[if IE]>
	<script src="http://html5shiv.googlecode.com/svn/trunk/html5.js"></script>
	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="utf-8">
	<link rel="stylesheet" href="http://cdn.leafletjs.com/leaflet-0.7/leaflet.css" />
	<script src="http://cdn.leafletjs.com/leaflet-0.7.3/leaflet.js"></script>
	<script src='https://api.tiles.mapbox.com/mapbox.js/v1.6.4/mapbox.js'></script>
	<style type="text/css">
	#map {
	width: 600px;
	library(dplyr)
	nc = st_read(system.file("shape/nc.shp", package="sf"))
	nc$blah <- sample(c(1,2,3), size = nrow(nc), replace = TRUE)
	nc %>% group_by(blah) %>% summarize(avg_bir74 = mean(BIR74))