GuillaumePressiat

## love_verse.R
library(stringfix)
library(magrittr)

one <- c('love', 'is', 'real')

(one %c% ' ') %,% (rev(one) %c% ' ')

love_verse <- function(w1, w2, w3){
  glue::glue(
  "Love is {b}, {b} is love

## xml_to_df.R
``` r
library(xml2)
library(dplyr)
library(purrr)
library(stringr)

# From the root node:
# If has_children, then recurse.
# Otherwise, attributes, value and children (nested) to data frame.

## decoupe_finess_etalab_geocode.py
#! /usr/bin/env python
# -*- coding: utf-8 -*-

# Le fichier est dispo ici : https://www.data.gouv.fr/fr/datasets/finess-extraction-du-fichier-des-etablissements/

import os
os.chdir('..\\..\\')

print ('----------------- Découper Géocodage et structureET Etalab ---------------')
	library(stringfix)
	library(magrittr)

	one <- c('love', 'is', 'real')

	(one %c% ' ') %,% (rev(one) %c% ' ')

	love_verse <- function(w1, w2, w3){
	glue::glue(
	"Love is {b}, {b} is love
	``` r
	library(xml2)
	library(dplyr)
	library(purrr)
	library(stringr)

	# From the root node:
	# If has_children, then recurse.
	# Otherwise, attributes, value and children (nested) to data frame.
	#! /usr/bin/env python
	# -- coding: utf-8 --

	# Le fichier est dispo ici : https://www.data.gouv.fr/fr/datasets/finess-extraction-du-fichier-des-etablissements/

	import os
	os.chdir('..\\..\\')

	print ('----------------- Découper Géocodage et structureET Etalab ---------------')