R_Leaflet_map.ipynb

{
  "nbformat": 4,
  "nbformat_minor": 0,
  "metadata": {
    "kernelspec": {
      "display_name": "R",
      "language": "R",
      "name": "ir"
    },
    "language_info": {
      "codemirror_mode": "r",
      "file_extension": ".r",
      "mimetype": "text/x-r-source",
      "name": "R",
      "pygments_lexer": "r",
      "version": "3.3.1"
    },
    "colab": {
      "name": "R-Leaflet-map.ipynb",
      "provenance": [],
      "collapsed_sections": [],
      "toc_visible": true,
      "include_colab_link": true
    }
  },
  "cells": [
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "view-in-github",
        "colab_type": "text"
      },
      "source": [
        "<a href=\"https://colab.research.google.com/github/jeffblackadar/oc-transpo-maps/blob/master/R_Leaflet_map.ipynb\" target=\"_parent\"><img src=\"https://colab.research.google.com/assets/colab-badge.svg\" alt=\"Open In Colab\"/></a>"
      ]
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "7WDmZczDDJok",
        "colab_type": "text"
      },
      "source": [
        "# RLeafletMap R6 Class\n",
        "Run this before runnign code below."
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "s4rX7xraDJoq",
        "colab_type": "code",
        "colab": {}
      },
      "source": [
        "library(R6)\n",
        "\n",
        "\n",
        "RLeafletMap <- R6Class(\"RLeafletMap\",\n",
        "                  public = list(\n",
        "                    outputFileHtmlCon = NULL,\n",
        "                    markers = 0,\n",
        "                    polylines = 0,\n",
        "                    layers = 0,\n",
        "\n",
        "                    initialize = function(outputFileHtmlCon) {\n",
        "                      self$outputFileHtmlCon <- outputFileHtmlCon\n",
        "                      self$markers <- 0\n",
        "                      self$polylines <- 0\n",
        "                      self$layers <- 0\n",
        "                    },\n",
        "                    genMapHTMLTop = function() {\n",
        "                      writeLines(paste0('<!DOCTYPE html>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<html>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<head><meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<title>map title</title>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<link href=\"https://cdnjs.cloudflare.com/ajax/libs/leaflet/0.7.5/leaflet.css\" rel=\"stylesheet\" />'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<script src=\"https://cdnjs.cloudflare.com/ajax/libs/leaflet/0.7.5/leaflet.js\"></script>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<script src=\"https://code.jquery.com/jquery-2.1.4.min.js\"></script>'), self$outputFileHtmlCon)\n",
        "                      \n",
        "                      #writeLines(paste0('<script src=\"//d3js.org/d3.v3.min.js\" charset=\"utf-8\"></script>'), self$outputFileHtmlCon)\n",
        "\n",
        "                      \n",
        "                      #writeLines(paste0('<script src=\"https://code.jquery.com/jquery-2.1.4.min.js\"></script>'), self$outputFileHtmlCon)                      \n",
        "                      \n",
        "                      #writeLines(paste0('<script src=\"http://octranspo.jeffblackadar.ca/SnakeAnim.js\"></script>'), self$outputFileHtmlCon)\n",
        "                      \n",
        "                      writeLines(paste0('<style type=\"text/css\">#my-map {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  width:960px;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  height:700px;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('h1 {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #AA0000;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-size: 24px;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('h2 {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #000000;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-size: 20px;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('h3 {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #000000;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-size: 16px;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)    \n",
        "                      writeLines(paste0('p {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #996600;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('li {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #996600;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)  \n",
        "                      writeLines(paste0('th {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  text-align: right;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #663300;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('td {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  text-align: right;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  font-family: verdana;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  color: #663300;'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('}'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('</style>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('</head>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('<body>'), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    \n",
        "                    genMapHTMLScriptTop = function() {  \n",
        "                      \n",
        "                      writeLines(paste0('  <div id=\"my-map\"></div>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('    <script>'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('    // This file was generated by this R program:  https://github.com/jeffblackadar/oc-transpo-maps/blob/master/oc_4_gen_html.r'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  var map;'), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    \n",
        "                    genMapHTMLMapTop = function() {\n",
        "                      writeLines(\"\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"      map = L.map('my-map');\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"      //basemap.fitBounds(geojson.getBounds());\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"      map.setView([45.42, -75.69], 10);\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"      basemap.addTo(map);\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"\", self$outputFileHtmlCon)      \n",
        "                      writeLines(\"      // add legend control layers - global variable with (null, null) allows indiv basemaps and overlays to be added inside functions below\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"      var controlLayers = L.control.layers(null, null, {\", self$outputFileHtmlCon)\n",
        "                      writeLines('        position: \"topleft\",', self$outputFileHtmlCon)\n",
        "                      writeLines(\"        collapsed: false // false = open by default\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"      }).addTo(map);\", self$outputFileHtmlCon)\n",
        "                      writeLines(\"\", self$outputFileHtmlCon)   \n",
        "                    },\n",
        "                    genHTMLBaseMap = function(){\n",
        "                      writeLines(paste0('  window.onload = function() {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"    var basemap = L.tileLayer('http://{s}.tile.osm.org/{z}/{x}/{y}.png', {\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"      attribution: '&copy; \",'<a href=\"http://osm.org/copyright\">OpenStreetMap</a>',\"'\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"    });\"), self$outputFileHtmlCon)\n",
        "                      basemapTitle=\"Open Street Map Today\"\n",
        "                    },\n",
        "                    genMarker = function(marker_lat, marker_long, marker_text){\n",
        "                      self$markers <- self$markers +1\n",
        "                      writeLines(paste0('  var marker',paste0(self$markers),'= L.marker([',paste0(marker_lat),',',paste0(marker_long),']).addTo(map);'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('     marker',paste0(self$markers),\".bindPopup('\",paste0(marker_text),\"').openPopup();\"), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    genPolyline = function(p1_lat, p1_long, p2_lat, p2_long){\n",
        "                      self$polylines <- self$polylines +1\n",
        "                      writeLines(paste0('  var pointA = new L.LatLng(',paste0(p1_lat),',',paste0(p1_long),' );'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  var pointB = new L.LatLng(',paste0(p2_lat),',',paste0(p2_long),');'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  var pointList = [pointA, pointB];'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  '), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  var polyline',paste0(self$polylines),' = new L.Polyline(pointList, {'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"      color: 'red',\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('      weight: 3,'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('      opacity: 0.5,'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('      smoothFactor: 1'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  });'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('  polyline',paste0(self$polylines),'.addTo(map);'), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    \n",
        "                    genSnake = function(){\n",
        "                      writeLines(paste0(' // Thanks to'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(' // \"THE BEER-WARE LICENSE\": ivan@sanchezortega.es wrote this file. As long as you retain this notice you can do whatever you want with this stuff. If we meet some day, and you think this stuff is worth it, you can buy me a beer in return.'), self$outputFileHtmlCon)\n",
        "                      \n",
        "                      writeLines(paste0('         var route = L.layerGroup(['), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('     \tL.marker(marker1),'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('     \tL.polyline([polyline1, polyline2]),'), self$outputFileHtmlCon)\n",
        "                      #writeLines(paste0('     \tL.marker(airport2)'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('     ], { snakingPause: 200 });'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('     route.addTo(map).snakeIn();'), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    genHTMLEndMap = function(){\n",
        "                      writeLines(paste0(\"      controlLayers.addOverlay(basemap, 'basemap title');\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"      \"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"   // });\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"  };\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"</script>\"), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    genHTMLEndBody = function(){\n",
        "                      writeLines(paste0(\"<hr>\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"<p>Page last modifed: \", format(Sys.Date(),\"%d %B, %Y\"),\"</p>\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"</body>\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"</html>\"), self$outputFileHtmlCon)\n",
        "                    },\n",
        "                    \n",
        "                    \n",
        "\n",
        "\n",
        "                   genLayer = function(geojsonfile){\n",
        "                      self$layers <- self$layers +1\n",
        "                      #print(paste0(\"To map for \", railYear, \", adding: \"))\n",
        "                      #print(output_dbRows_route_style[i_route_style, 1])\n",
        "                      layerName <- paste0(\"layer\", paste0(self$layers))\n",
        "                      \n",
        "                      writeLines(paste0(\"\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"// layer for \",geojsonfile), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"var \",layerName,\";\"), self$outputFileHtmlCon)\n",
        "                      \n",
        "                      writeLines(paste0(\"      $.ajax({\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"        type: 'POST',\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"        url: '\",geojsonfile,\"',\"), self$outputFileHtmlCon)\n",
        "\n",
        "                      writeLines(paste0(\"        dataType: 'json',\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"        success: function(response) {\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"          \",layerName,\" = L.geoJson(response, {\"), self$outputFileHtmlCon)\n",
        "                      \n",
        "                      writeLines(paste0(\"             onEachFeature: function (feature, layer) {\"), self$outputFileHtmlCon)\n",
        "\n",
        "                      writeLines(paste0(\"                 layer.bindPopup('<p>'+feature.properties.RTE_TYPE+'</p><p>'+feature.properties.MODE+'</p>');\"), self$outputFileHtmlCon)  \n",
        "                      \n",
        "                      writeLines(paste0(\"               }\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"             });\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"          \",layerName,\".setStyle({\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"            color: 'purple',\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"            weight: 2,\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0('            opacity: 1'), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"          });\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"          \",layerName,\".addTo(map);\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"          controlLayers.addOverlay(\",layerName,\", '<span style=\",'\"color: purple\"',\">route</span>');\"), self$outputFileHtmlCon)\n",
        "\n",
        "                      writeLines(paste0(\"        }\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"      });\"), self$outputFileHtmlCon)\n",
        "                      writeLines(paste0(\"\"), self$outputFileHtmlCon)\n",
        "                      \n",
        "                    }\n",
        "\n",
        "\n",
        "\n",
        "                  )\n",
        ")\n"
      ],
      "execution_count": 0,
      "outputs": []
    },
    {
      "cell_type": "markdown",
      "metadata": {
        "id": "swBu99kygPSi",
        "colab_type": "text"
      },
      "source": [
        "#Create the map by calling methods of the class.\n",
        "This code generates a file called a_test_map.html.  Download it from the Files pane and open it."
      ]
    },
    {
      "cell_type": "code",
      "metadata": {
        "id": "gkpa9wRDgK5M",
        "colab_type": "code",
        "colab": {}
      },
      "source": [
        "\n",
        "outputFileHtml <- paste0(\"a_test_map.html\")\n",
        "outputFileHtmlCon<-file(outputFileHtml, open = \"w\")\n",
        "map <- RLeafletMap$new(outputFileHtmlCon=outputFileHtmlCon)\n",
        "map$genMapHTMLTop()\n",
        "map$genMapHTMLScriptTop()\n",
        "map$genHTMLBaseMap()\n",
        "map$genMapHTMLMapTop()\n",
        "map$genMarker(45.4376105533903, -75.6575202941895, '<p>The Eastview Bus Company operated in Eastview until December 29, 1950. <a href=\"#footnote11\"><sup>11</sup></a></p><p>The route map for this bus line is not known for this year.</p>')\n",
        "map$genPolyline(45.4376105533903, -75.6575202941895,45.8376105533903, -75.8575202941895)\n",
        "map$genPolyline(45.4376105533903, -75.6575202941895,45.0376105533903, -75.8575202941895)\n",
        "#map$genSnake()\n",
        "map$genLayer(\"1939-Suburban-Car-Line.geojson\")\n",
        "map$genHTMLEndMap()\n",
        "map$genHTMLEndBody()\n",
        "\n",
        "close(outputFileHtmlCon)"
      ],
      "execution_count": 0,
      "outputs": []
    }
  ]
}