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()