-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
117 lines (117 loc) · 3.48 KB
/
.Rhistory
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
install.packages("shiny")
setwd("~/Code/booze-orleans/BoozeApp")
library(shiny)
ruApp("BoozeApp")
runApp("BoozeApp")
setwd("~/Code/booze-orleans/")
runApp("BoozeApp")
source("BoozeApp/helpers.R")
installed.packages("RSocrata")
library(RSocrata)
installed.packages("RSocrata")
install.packages("RSocrata")
install.packages("leaflet")
library(leaflet)
install.packages("leaflet")
install.packages("leaflet")
install.packages(c("plyr","dplyer","RColorBrewer","scales","lattice"))
install.packages("ply")
install.packages("plyr")
library("lattice", lib.loc="/usr/lib/R/library")
library("png", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.0")
library("lattice", lib.loc="~/R/x86_64-pc-linux-gnu-library/3.0")
install.packages("dplyr")
setRepositories()
setRepositories()
library(shiny)
library(leaflet)
library(RColorBrewer)
library(scales)
library(lattice)
library(dplyr)
install.packages("leaflet")
install.packages("leaflet")
library(leaflet)
output$map <- renderLeaflet({
leadlet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -93.85, lat = 37.45, zoom = 4)
})
a <- renderLeaflet({
leadlet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -93.85, lat = 37.45, zoom = 4)
})
a
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
library(RSocrata)
install.packages("RSocrata")
install.packages("RSocrata")
shiny::runApp('BoozeApp')
library(RSocrata)
booze <- read.socrata('https://data.nola.gov/resource/uiry-as9x.json')
library(RSocrata)
booze <- read.socrata('https://data.nola.gov/resource/uiry-as9x.json')
booze <- read.csv(header = TRUE, file = "BoozeApp/data/abo.csv")
View(booze)
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
output$map <- renderLeaflet({
leaflet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -90.08385663199994, lat = 29.980464294000058, zoom = 4)
})
})
m <- leaflet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -90.08385663199994, lat = 29.980464294000058, zoom = 4)
m
m <- leaflet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -90.08385663199994, lat = 29.980464294000058, zoom = 10)
m
m <- leaflet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -90.08385663199994, lat = 29.980464294000058, zoom = 14)
m
m <- leaflet() %>%
addTiles(
urlTemplate = "//{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png",
attribution = 'Maps by <a href="http://www.mapbox.com/">Mapbox</a>'
) %>%
setView(lng = -90.08385663199994, lat = 29.980464294000058, zoom = 12)
m
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
shiny::runApp('BoozeApp')
booze
booze$Location.1
shiny::runApp('BoozeApp')