RCura

---
title: "Leaflet.heat"
output: html_notebook
---

## Data preparation

```{r data loading}
library(tibble)
library(dplyr)

RCura

---
title: "Leaflet.heat"
output: html_notebook
---

## Data preparation

```{r data loading}
library(tibble)
library(dplyr)

RCura

Accueil

Statistiques univariées

Statistiques bivariées

Analyse multivariée

RCura

\begin{table}[!h]
\caption{Sources des données statistiques}
\label{sourcestat}
\begin{tabular}{|p{2,5cm}|p{2,5cm}|p{2,5cm}|p{2,5cm}|p{2,5cm}|}
	\hline
Variable & 1980 & 1990 & 2000 & 2010 \\
\hline
Appartenance ethno-raciale (dans la population totale) &  Race, Hispanic Origine and Breakdown B001 et B008, 1980 Decennial Census STF1  &  Hispanic Origin by Race P12, 1990 Census STF1  &  Hispanic by race, 2000 Census SF1  &  Hispanic or Latino Origin by Race P5, 2010 Census SF1a\\
\hline

RCura

---
title: ""
date: "`r Sys.Date()`"
output:
  rmdformats::readthedown:
    highlight: kate
    code_folding: hide
---

RCura

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)

RCura

install.packages(c("dplyr", "knitr",  "magrittr", "rmdformats", "sp", "mapview", "geonames", "xml2", "rvest", "stringr", "tidyr", "ggplot2", "tm", "tm.plugin.webmining", "wordcloud", "RColorBrewer"))

devtools::install_github(repo = 'rCarto/photon')

devtools::install_github("rCarto/osrm")

RCura

library(animation)

oopt = ani.options(interval = 0.1)

pp <- function(N) {
x1 <- runif(N, 0, N)
y1 <- runif(N, 0, N)
par(ann = F, bg = 'darkblue', pch = 8, mar = rep(0, 4))
x <- seq(1, 30 * N)
j <- sample(x, 30)

RCura

Built with blockbuilder.org

RCura

library(shiny)

shinyUI(fluidPage(
  tags$head(tags$link(rel="shortcut icon", href="favicon.png")),
  titlePanel("MetaZipf"),
  titlePanel(h4("Open Meta Analysis of Zipf's law for cities")),
  
  navlistPanel(
    tabPanel("Test",
             selectInput(