Matthew Henderson MHenderson

Pushing to Multiple Git Repos

If a project has to have multiple git repos (e.g. Bitbucket and Github) then it's better that they remain in sync.

Usually this would involve pushing each branch to each repo in turn, but actually Git allows pushing to multiple repos in one go.

If in doubt about what git is doing when you run these commands, just

Common Options

-#, --progress-bar Make curl display a simple progress bar instead of the more informational standard meter.

-b, --cookie <name=data> Supply cookie with request. If no =, then specifies the cookie file to use (see -c).

-c, --cookie-jar <file name> File to save response cookies to.

Built with blockbuilder.org

Nesting and summarizing data is a very common task for data analysis. I thought it would be nice to view parallel ways of nesting and summarizing with both

R | tidyr and dplyr
JavaScript | d3.js ...v4 for fun

To avoid context switching, I'll take advantage of the R package V8. If you are an R user, then these d3.js gists might be helpful d3 nest examples and Mister Nester.

Using arbitrary Leaflet JS plugins with Leaflet for R

The Leaflet JS mapping library has lots of plugins available. The Leaflet package for R provides direct support for some, but far from all, of these plugins, by providing R functions for invoking the plugins.

If you as an R user find yourself wanting to use a Leaflet plugin that isn't directly supported in the R package, you can use the technique shown here to load the plugin yourself and invoke it using JS code.

As an extension to the blog post React in R, I thought it would be helpful to demonstrate how we can combine a React component with R Shiny.

Code

library(htmltools)
library(shiny)
library(reactR)

	# originally from: http://stackoverflow.com/questions/42528400/plot-brushing-or-accessing-drawn-shape-geometry-for-spatial-subsets-in-shiny-lea
	# uses https://github.com/bhaskarvk/leaflet.extras

	library(shiny)
	library(leaflet)
	library(leaflet.extras)
	library(sp)

	cities <- structure(list(AccentCity = c("Saint Petersburg", "Harare", "Qingdao",
	"Addis Abeba", "Xian", "Anshan", "Rongcheng", "Kinshasa", "New York",

	library(tidyverse)
	library(lubridate)
	library(extrafont)
	library(kani)
	library(directlabels)
	library(gganimate)
	library(scales)
	library(tweenr)

	sea_ice <- read.csv("https://raw.githubusercontent.com/kanishkamisra/sea-ice-extent/master/seaice.csv") %>% select(-Source.Data)

	### ------- Load Packages ---------- ###
	library("purrr")
	library("future")
	library("dplyr")
	library("randomForest")
	library("rsample")
	library("ggplot2")
	library("viridis")
	### ------- Helper Functions for map() ---------- ###
	# breaks CV splits into train (analysis) and test (assessmnet) sets