171 lines
2.8 KiB
R
171 lines
2.8 KiB
R
shiny::runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
dat_nuts <- get_eurostat(id = 'tran_r_acci', time_format = 'num')
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
View(temp_dat_veh)
|
|
dat_population <- get_eurostat(id = 'tps00001', time_format = 'num') %>%
|
|
rename(population = values)
|
|
View(dat_population)
|
|
runApp()
|
|
runApp()
|
|
View(dat_population)
|
|
?left_join
|
|
runApp()
|
|
View(get_eurostat(id = 'tran_sf_roadve', time_format = 'num'))
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
View(get_eurostat(id = 'tran_sf_roadve', time_format = 'num'))
|
|
# mapa (wypełnienie w skali ciągłej)
|
|
ggplot(mapdata, aes(fill = values)) +
|
|
geom_sf(color = alpha('black', 1/3), alpha = .6) +
|
|
scale_fill_gradient(low="white", high="red") +
|
|
coord_sf(xlim = c(-20,44), ylim = c(30,70)) +
|
|
labs(title = 'Ofiary śmiertelne wypadków drogowych, 2018',
|
|
subtitle = 'Średnia na 100 tys. mieszkańców',
|
|
fill = 'Wynik',
|
|
caption = 'Mapa 2.')
|
|
runApp()
|
|
zaju infrastruktury drogowej
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
View(get_eurostat(id = 'tran_sf_roadus', time_format = 'num', filters = list(time = '2017'))
|
|
end
|
|
View(get_eurostat(id = 'tran_sf_roadus', time_format = 'num', filters = list(time = '2017')))
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
install.packages("rsconnect")
|
|
rsconnect::setAccountInfo(name='maciejk',
|
|
token='107B5C72895BEE97EA9DB8290D24D0A8',
|
|
secret='OrYzipRFI2sHMFV7289G1rWgedzfVuBVJFUR3a+P')
|
|
library(rsconnect)
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
View(min_cat)
|
|
min_cat
|
|
View(min_cat)
|
|
min(min_cat$cat)
|
|
?first
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
shiny::runApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
runApp()
|
|
View(min_cat)
|
|
runApp()
|
|
View(min_cat)
|
|
runApp()
|
|
runApp()
|
|
install.packages("shinycssloaders")
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
library(eurostat)
|
|
library(tidyverse)
|
|
library(dplyr)
|
|
library(ggplot2)
|
|
runApp()
|
|
shiny::runApp()
|
|
library(eurostat)
|
|
library(tidyverse)
|
|
library(dplyr)
|
|
library(ggplot2)
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
library(rsconnect)
|
|
rsconnect::deployApp('wypadki-ue')
|
|
rsconnect::deployApp('app')
|
|
rsconnect::deployApp('\')
|
|
rsconnect::deployApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
runApp()
|
|
rsconnect::deployApp()
|
|
rsconnect::forgetDeployment()
|
|
rsconnect::deployApp()
|
|
runApp()
|
|
rsconnect::deployApp()
|
|
library(rsconnect)
|
|
install.packages("shinythemes")
|
|
shiny::runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
shiny::runApp()
|
|
runApp()
|
|
?showModal
|
|
?modalDialog
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
?renderText
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
runApp()
|
|
library(rsconnect)
|
|
rsconnect::deployApp()
|