markusloecher

library(geosphere)
library(sp)
data("meuse")
library(RgoogleMaps)

getGeoCode("Frankfurt, Germany")
#      lat       lon 
#50.110922  8.682127 

LA <- c(-118.40, 33.95)

markusloecher

---
title: "Quick Tutorial, maps in R"
author: "M Loecher"

output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, fig.width = 8, fig.height = 8)
loadLibs = function(libs="RgoogleMaps"){

markusloecher

---
title: "Offline Maps with RgoogleMaps and leaflets"
author: "M Loecher"
output: 
  html_document:
    toc: true
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE, message=FALSE, warning=FALSE)

markusloecher

#borrow from
#http://s4rdd.blogspot.de/2012/12/google-maps-api-decoding-polylines-for.html

decodeLine <- function(encoded){
  require(bitops)
  
  vlen <- nchar(encoded)
  vindex <- 0