{"size":{"Width":770,"Height":512},"appearance":{"background":null,"padding":14,"font":{"family":"Courier New","size":10.0,"bold":false,"italic":false,"underline":false,"strikeout":false,"color":"rgb(0,72,168)"},"border":{"on":true,"size":0.0,"style":"solid","color":"#666"},"text":{"wrap":false,"hAlign":"left","vAlign":"top"}},"outputType":"WIDGET","widgetState":null,"outputs":{"console":"<pre class='debug-source'>&gt;library(geojsonio)\n</pre>\n<pre class='debug-warning'>namespace &#39;RPostgreSQL&#39; is not available and has been replaced\nby .GlobalEnv when processing object &#39;&#39;</pre>\n<pre class='debug-warning'>namespace &#39;RPostgreSQL&#39; is not available and has been replaced\nby .GlobalEnv when processing object &#39;&#39;</pre>\n<pre class='debug-message'>\nAttaching package: &#39;geojsonio&#39;\n\n</pre>\n<pre class='debug-message'>The following object is masked from &#39;package:base&#39;:\n\n pretty\n\n</pre>\n<pre class='debug-source'>&gt;library(leaflet)\n</pre>\n<pre class='debug-source'>&gt;library(leaflet.extras)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;df &lt;- data.frame(lon = reclong, lat = reclat, size = size2,\n country = country1, age = age)\n</pre>\n<pre class='debug-source'>&gt;df &lt;- df[Meteorite_Landings.csv$Questions$fall == &quot;Fell&quot;, ]\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;df &lt;- df[df$age &lt; 15, ]\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;#print(df)\n</pre>\n<pre class='debug-source'>&gt;#stop()\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;animate &lt;- TRUE\n</pre>\n<pre class='debug-source'>&gt; \n</pre>\n<pre class='debug-source'>&gt;# set icons\n</pre>\n<pre class='debug-source'>&gt;popIcons &lt;- pulseIconList(\n green = makePulseIcon(color=&quot;green&quot;, heartbeat = 2, animate = animate),\n orange = makePulseIcon(color=&quot;orange&quot;, heartbeat = 1, animate = animate),\n red = makePulseIcon(color=&quot;red&quot;, heartbeat = 0.5, animate = animate)\n)\n</pre>\n<pre class='debug-source'>&gt;icon.code &lt;- as.numeric(df$size)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;# find region\n</pre>\n<pre class='debug-source'>&gt;continents &lt;- c(&quot;World&quot;, &quot;North America&quot;, &quot;South America&quot;, &quot;Europe&quot;, &quot;Africa&quot;, &quot;Asia&quot;, &quot;Oceania&quot;)\n</pre>\n<pre class='debug-source'>&gt;n.continent &lt;- 1\n</pre>\n<pre class='debug-source'>&gt;lats &lt;- c(20, 40, -22, 51, 3, 49, -12)\n</pre>\n<pre class='debug-source'>&gt;longs &lt;- c(20, -98.5, -59, 15, 21, 81, 157)\n</pre>\n<pre class='debug-source'>&gt;zoom &lt;- if (n.continent == 1) 2 else 3\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;# plot map\n</pre>\n<pre class='debug-source'>&gt;l &lt;- leaflet(df) %&gt;%\n #setView(lng = longs[n.continent], lat = lats[n.continent], zoom = zoom) %&gt;%\n addTiles() %&gt;%\n addPulseMarkers(label=df$size, icon = popIcons[icon.code])\n</pre>\n<pre class='debug-message'>Assuming &quot;lon&quot; and &quot;lat&quot; are longitude and latitude, respectively\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;print(l)\n</pre>\r\n<div class=\"debug-summarystatistics\"><table>\r\n<tr><th>Started:</th><td class=utc-time>2018-08-27T23:50:16.036Z</td></tr>\r\n<tr><th>Finished:</th><td class=utc-time>2018-08-27T23:50:20.036Z</td></tr>\r\n<tr><th>Total time:</th><td>4.85s</td></tr>\r\n<tr><th>Time executing code:</th><td title=\"0.01s\">4.84s</td></tr>\r\n<tr><th>Other overhead on R server:</th><td>3.77s</td></tr>\r\n<tr><th>Time spent transferring data:</th><td>0.01s</td></tr>\r\n<tr><th>Data sent to R server:</th><td>1.2MB</td></tr>\r\n<tr><th>Data received from R server:</th><td>10.3KB</td></tr>\r\n</table></div>","message":"\nAttaching package: 'geojsonio'\n\n\r\nThe following object is masked from 'package:base':\n\n pretty\n\n\r\nAssuming \"lon\" and \"lat\" are longitude and latitude, respectively\n","warning":"namespace 'RPostgreSQL' is not available and has been replaced\nby .GlobalEnv when processing object ''","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-7d2438711fbe78901953\" style=\"width:100%;height:400px;\" class=\"leaflet html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-7d2438711fbe78901953\">{\"x\":{\"options\":{\"crs\":{\"crsClass\":\"L.CRS.EPSG3857\",\"code\":null,\"proj4def\":null,\"projectedBounds\":null,\"options\":{}}},\"calls\":[{\"method\":\"addTiles\",\"args\":[\"//{s}.tile.openstreetmap.org/{z}/{x}/{y}.png\",null,null,{\"minZoom\":0,\"maxZoom\":18,\"tileSize\":256,\"subdomains\":\"abc\",\"errorTileUrl\":\"\",\"tms\":false,\"noWrap\":false,\"zoomOffset\":0,\"zoomReverse\":false,\"opacity\":1,\"zIndex\":1,\"detectRetina\":false,\"attribution\":\"&copy; <a href=\\\"http://openstreetmap.org\\\">OpenStreetMap<\\/a> contributors, <a href=\\\"http://creativecommons.org/licenses/by-sa/2.0/\\\">CC-BY-SA<\\/a>\"}]},{\"method\":\"addPulseMarkers\",\"args\":[[20.74575,31.805,15.78333,40.66813,32.25,-31.91,40.30583,17.17493,-31.35,52.996,3.405,-16.66444,54.81667,23.69639,-1.87089,37.35172,43.2,26.46469,46.42137,22.68,20.33916,25.14333,36.54194,48.76367,38.70066,27.66667,12.83333,54.76183,0,42.9075,59.43333,28.5475,45.275,39.35,38.13742,-31.535556,54.00883,12.66667,38.80389,31.16333,-1.00278,29.48195,-20.85001,42.8,32.79732,31.96185],[32.41275,-97.01,-5.9,-117.18913,-8.15,-58.32833,-105.02325,-11.34133,129.19,-109.84817,-76.51,-69.04389,61.11667,-5.01472,-79.95756,27.32997,-79.61667,106.63241,14.05217,70.31333,73.22329,75.81333,29.41822,21.17633,-77.21163,95.78333,9.38333,11.46745,0,-90.36556,10.7,-81.36222,26.70972,-3.51667,-119.75812,-68.489444,22.005,78.03333,-120.90806,-7.015,37.15028,-7.61123,-41.73356,-4.66667,21.78713,-110.434183],{\"color\":[\"red\",\"red\",\"red\",\"red\",\"red\",\"orange\",\"orange\",\"red\",\"orange\",\"red\",\"orange\",\"orange\",\"red\",\"red\",\"red\",\"red\",\"orange\",\"red\",\"red\",\"orange\",\"red\",\"red\",\"red\",\"red\",\"orange\",\"red\",\"red\",\"green\",\"green\",\"red\",\"red\",\"orange\",\"red\",\"orange\",\"green\",\"red\",\"red\",\"red\",\"orange\",\"red\",\"red\",\"red\",\"red\",\"red\",\"red\",\"red\"],\"iconSize\":12,\"animate\":true,\"heartbeat\":[0.5,0.5,0.5,0.5,0.5,1,1,0.5,1,0.5,1,1,0.5,0.5,0.5,0.5,1,0.5,0.5,1,0.5,0.5,0.5,0.5,1,0.5,0.5,2,2,0.5,0.5,1,0.5,1,2,0.5,0.5,0.5,1,0.5,0.5,0.5,0.5,0.5,0.5,0.5]},null,null,{\"interactive\":true,\"draggable\":false,\"keyboard\":true,\"title\":\"\",\"alt\":\"\",\"zIndexOffset\":0,\"opacity\":1,\"riseOnHover\":false,\"riseOffset\":250},null,null,null,null,[\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"50g to 1kg\",\"50g to 1kg\",\"over 1kg\",\"50g to 1kg\",\"over 1kg\",\"50g to 1kg\",\"50g to 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"50g to 1kg\",\"over 1kg\",\"over 1kg\",\"50g to 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"50g to 1kg\",\"over 1kg\",\"over 1kg\",\"less than 50g\",\"less than 50g\",\"over 1kg\",\"over 1kg\",\"50g to 1kg\",\"over 1kg\",\"50g to 1kg\",\"less than 50g\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"50g to 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\",\"over 1kg\"],null]}],\"limits\":{\"lat\":[-31.91,59.43333],\"lng\":[-120.90806,129.19]}},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-7d2438711fbe78901953\">{\"viewer\":{\"width\":\"100%\",\"height\":400,\"padding\":0,\"fill\":true},\"browser\":{\"width\":\"100%\",\"height\":400,\"padding\":0,\"fill\":true}}</script>","htmlwidget-head":"{\"stylesheets\":[\"https://rserverhtmlwidgetasset.azureedge.net/leaflet-259a94c7a1a2d0834e7035d4cd425c09.css\",\"https://rserverhtmlwidgetasset.azureedge.net/leafletfix-07f88ee81b8be179e1634c70d28e97b8.css\",\"https://rserverhtmlwidgetasset.azureedge.net/rstudio_leaflet-6633e21b63b76f92045da0f34e4ec25f.css\",\"https://rserverhtmlwidgetasset.azureedge.net/lfx-pulse-icon-prod-f2e4bc0b5e0ddb8450c8be8eeae6befa.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-917a66c6e5036eb1bfd1fb672a82635a.js\",\"https://rserverhtmlwidgetasset.azureedge.net/jquery.min-9704c0de613153b7e634f998838953e9.js\",\"https://rserverhtmlwidgetasset.azureedge.net/leaflet-5be72ae4761801df33edf0d7e6cd5bcb.js\",\"https://rserverhtmlwidgetasset.azureedge.net/proj4-compressed-a641577e4e9b74604ba85ed6d6d0f0ad.js\",\"https://rserverhtmlwidgetasset.azureedge.net/proj4leaflet-af4e6f4ffc8df250e960f0c2979a422e.js\",\"https://rserverhtmlwidgetasset.azureedge.net/leaflet-cbbb07f60629481c000285e8bb5844bf.js\",\"https://rserverhtmlwidgetasset.azureedge.net/lfx-pulse-icon-prod-6d1f1a8ddfc9dd091a535784e3b325bb.js\",\"https://rserverhtmlwidgetasset.azureedge.net/lfx-pulse-icon-bindings-f22fd6943fd03d903039002f4da59657.js\"],\"attachments\":[],\"widget-cannot-re-render\":false}"},"secondsTaken":4.8478395,"updated":"2018-08-27T23:50:20.0367555Z","lastUpdatedMessage":null,"executedCode":"library(geojsonio)\nlibrary(leaflet)\nlibrary(leaflet.extras)\n\n\ndf <- data.frame(lon = reclong, lat = reclat, size = size2,\n country = country1, age = age)\ndf <- df[Meteorite_Landings.csv$Questions$fall == \"Fell\", ]\n\ndf <- df[df$age < 15, ]\n\n#print(df)\n#stop()\n\nanimate <- TRUE\n \n# set icons\npopIcons <- pulseIconList(\n green = makePulseIcon(color=\"green\", heartbeat = 2, animate = animate),\n orange = makePulseIcon(color=\"orange\", heartbeat = 1, animate = animate),\n red = makePulseIcon(color=\"red\", heartbeat = 0.5, animate = animate)\n)\nicon.code <- as.numeric(df$size)\n\n# find region\ncontinents <- c(\"World\", \"North America\", \"South America\", \"Europe\", \"Africa\", \"Asia\", \"Oceania\")\nn.continent <- 1\nlats <- c(20, 40, -22, 51, 3, 49, -12)\nlongs <- c(20, -98.5, -59, 15, 21, 81, 157)\nzoom <- if (n.continent == 1) 2 else 3\n\n# plot map\nl <- leaflet(df) %>%\n #setView(lng = longs[n.continent], lat = lats[n.continent], zoom = zoom) %>%\n addTiles() %>%\n addPulseMarkers(label=df$size, icon = popIcons[icon.code])\n\nprint(l)\n\n","lastSavedCode":"library(geojsonio)\nlibrary(leaflet)\nlibrary(leaflet.extras)\n\n\ndf <- data.frame(lon = reclong, lat = reclat, size = size2,\n country = country1, age = age)\ndf <- df[Meteorite_Landings.csv$Questions$fall == \"Fell\", ]\n\ndf <- df[df$age < 15, ]\n\n#print(df)\n#stop()\n\nanimate <- TRUE\n \n# set icons\npopIcons <- pulseIconList(\n green = makePulseIcon(color=\"green\", heartbeat = 2, animate = animate),\n orange = makePulseIcon(color=\"orange\", heartbeat = 1, animate = animate),\n red = makePulseIcon(color=\"red\", heartbeat = 0.5, animate = animate)\n)\nicon.code <- as.numeric(df$size)\n\n# find region\ncontinents <- c(\"World\", \"North America\", \"South America\", \"Europe\", \"Africa\", \"Asia\", \"Oceania\")\nn.continent <- 1\nlats <- c(20, 40, -22, 51, 3, 49, -12)\nlongs <- c(20, -98.5, -59, 15, 21, 81, 157)\nzoom <- if (n.continent == 1) 2 else 3\n\n# plot map\nl <- leaflet(df) %>%\n #setView(lng = longs[n.continent], lat = lats[n.continent], zoom = zoom) %>%\n addTiles() %>%\n addPulseMarkers(label=df$size, icon = popIcons[icon.code])\n\nprint(l)\n\n","highlightedCodeSpans":[{"start":85,"length":7,"index":1},{"start":100,"length":6,"index":1},{"start":115,"length":5,"index":1},{"start":148,"length":8,"index":1},{"start":164,"length":3,"index":1},{"start":178,"length":37,"index":1}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":false,"guiControls":{"Code":"","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Page":null,"Group":null,"Type":null,"Label":null,"LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":true}]},"calculating":"Idle","showDebug":false,"layout":"OutputOnly","vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Automatic","warnSlow":true,"Options":{"debugconsole":false,"codeposition":"OutputOnly","splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Automatic","warn slow":true}}