Luis Sevillano LuisSevillano

## get_leaflet_layers_polygons.js
// chrome snippet
var layersMarkers = [];
var layersPolygons = [];
var layers = []
var geojson = {
    "type": "FeatureCollection",
    "features": []
}
var output = {
    "type": "FeatureCollection",

## index.html
<!DOCTYPE html>
<html lang="en">

<head>
    <meta charset="UTF-8" />
    <meta name="viewport" content="width=device-width, initial-scale=1.0" />
    <title>Document</title>
    <style>
        html {
            font-family: system-ui, -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, Oxygen, Ubuntu, Cantarell, "Open Sans", "Helvetica Neue", sans-serif;

## scale.js
// https://github.com/d3/d3-scale/blob/11777dac7d4b0b3e229d658aee3257ea67bd5ffa/src/band.js#L32
x.invert = function(_) {
    const scale = this;
    const domain = scale.domain;
    const paddingOuter = scale.paddingOuter();
    const paddingInner = scale.paddingInner();
    const step = scale.step();

    const range = scale.range();
    var domainIndex,

## node.md

      
              2 files
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                LuisSevillano
                / node.md
            
            
              Last active
              October 30, 2019 15:24
            
              
                Regex to replace commas to points in gedit
              
          
    How to use a regex to replace commas with points using gedit:
Having a csv like following:
c,m,p2019,p2016,p2015,p2011
w,x,"75.74","77.50","74.98","78.14"
g,f,"76.80","71.99","71.97","77.75"
i,b,"69.41","64.28","62.95","69.20"
b,h,"80.00","77.41","74.58","80.13"


## script.R
plot <- ggplot(data = pf, aes(x = age, y = df)) +
  geom_point(alpha = 1/100,
             position = position_jitter(h = 0),
             color = "darkred")

ggplot(data = layer_data(plot, 1), aes(x = x, y = y)) +
  geom_point(alpha = 1/20)

## .block
border:none
height:696
license:MIT

## autonomous_regions.json

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                LuisSevillano
                / autonomous_regions.json
            
            
              Created
              August 14, 2019 18:51
            
              
                Preprojected TopoJSON
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## .block
border:none
height:700

## combineHeaders.R
library(tidyverse)
library(ggplot2)
library(janitor)
library(readxl)

filePath <- "data/4247.xlsx"

csv <- read_xlsx(filePath, skip = 6)

# This function fills empty cells with previous values to the right and then combine them with the row above

## .block
border: none
height: 650
	// chrome snippet
	var layersMarkers = [];
	var layersPolygons = [];
	var layers = []
	var geojson = {
	"type": "FeatureCollection",
	"features": []
	}
	var output = {
	"type": "FeatureCollection",
	<!DOCTYPE html>
	<html lang="en">

	<head>
	<meta charset="UTF-8" />
	<meta name="viewport" content="width=device-width, initial-scale=1.0" />
	<title>Document</title>
	<style>
	html {
	font-family: system-ui, -apple-system, BlinkMacSystemFont, "Segoe UI", Roboto, Oxygen, Ubuntu, Cantarell, "Open Sans", "Helvetica Neue", sans-serif;
	// https://github.com/d3/d3-scale/blob/11777dac7d4b0b3e229d658aee3257ea67bd5ffa/src/band.js#L32
	x.invert = function(_) {
	const scale = this;
	const domain = scale.domain;
	const paddingOuter = scale.paddingOuter();
	const paddingInner = scale.paddingInner();
	const step = scale.step();

	const range = scale.range();
	var domainIndex,
	plot <- ggplot(data = pf, aes(x = age, y = df)) +
	geom_point(alpha = 1/100,
	position = position_jitter(h = 0),
	color = "darkred")

	ggplot(data = layer_data(plot, 1), aes(x = x, y = y)) +
	geom_point(alpha = 1/20)
	library(tidyverse)
	library(ggplot2)
	library(janitor)
	library(readxl)

	filePath <- "data/4247.xlsx"

	csv <- read_xlsx(filePath, skip = 6)

	# This function fills empty cells with previous values to the right and then combine them with the row above