usethis::use_data_raw("pnud")
file.copy("../../../dados/pnud_min.rds", "data-raw/")
pnud <- readr::read_rds("data-raw/pnud_min.rds")
usethis::use_data(pnud, overwrite = TRUE)
devtools::load_all(".")
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
usethis::use_package("bslib")
devtools::load_all(".")
run_app()
golem::add_module("plotly")
golem::add_module("reactable")
golem::add_module("leaflet")
pnud
dplyr::glimpse(pnud)
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
clique
Q
reactable::reactable()
devtools::load_all(".")
run_app()
Q
devtools::load_all(".")
run_app()
clique
devtools::load_all(".")
run_app()
clique
pnud_filtrado() |>
dplyr::slice(clique$pointNumber)
pnud_filtrado() |>
dplyr::slice(clique$pointNumber) |> dplyr::glimpse()
pnud_filtrado() |>
dplyr::slice(clique$pointNumber + 1)
pnud_filtrado() |>
dplyr::slice(clique$pointNumber+1) |> dplyr::glimpse()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
selected
selecao
pnud_filtrado() |>
dplyr::slice(clique$pointNumber + 1) |>
dplyr::select(
muni_nm, uf_sigla,
idhm, rdpc, gini
) |>
reactable::reactable()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
linhas
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
input$mapa_marker_click
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
RSQLite::SQLite()
devtools::load_all(".")
system.file("pnud_min.sqlite", package = "pnudSQL")
system.file("pnud_min.sqlite", package = "pnudSQL")
DBI::dbConnect(
RSQLite::SQLite(),
system.file("pnud_min.sqlite", package = "pnudSQL")
)
con <- conectar_bd()
DBI::dbListTables(con)
dplyr::tbl(con, "pnud")
con <- conectar_bd()
anos <- dplyr::tbl(con, "pnud") |>
dplyr::distinct(ano) |>
dplyr::collect() |>
dplyr::pull(ano)
anos
dplyr::tbl(con, "pnud") |>
dplyr::distinct(ano)
anos <- dplyr::tbl(con, "pnud") |>
dplyr::distinct(ano) |>
dplyr::collect() |>
dplyr::pull(ano)
dplyr::tbl(con, "pnud") |>
dplyr::filter(ano == "2013") |>
dplyr::collect()
input <- list(ano = "2010")
dplyr::tbl(con, "pnud") |>
dplyr::filter(ano == input$ano) |>
dplyr::collect()
dplyr::tbl(con, "pnud") |>
dplyr::filter(ano == local(input$ano)) |>
dplyr::collect()
devtools::load_all(".")
run_app()
golem::add_module("filtro_ano")
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
pnud_filtrado()
Q
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
conectar_bd()
devtools::load_all(".")
run_app()
golem::add_module("documentacao")
system.file
devtools::load_all(".")
system.file(
"documentacao.md", package = "pnudRelatorio"
)
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
devtools::load_all(".")
run_app()
knitr::opts_chunk$set(echo = TRUE)
abjData::pnud_min
abjData::pnud_min |>
dplyr::filter(ano == 2010)
abjData::pnud_min |>
dplyr::filter(ano == 2010) |>
ggplot2::ggplot(ggplot2::aes(idhm, rdpc, colour = gini)) +
ggplot2::geom_point()
abjData::pnud_min |>
dplyr::filter(ano == 2010) |>
ggplot2::ggplot(ggplot2::aes(idhm, rdpc, colour = gini)) +
ggplot2::geom_point() +
ggthemes::theme_hc()
abjData::pnud_min |>
dplyr::filter(ano == 2010) |>
ggplot2::ggplot(ggplot2::aes(idhm, rdpc, colour = gini)) +
ggplot2::geom_point() +
ggthemes::theme_hc() +
ggplot2::labs(
title = "A relação entre IDH e Renda",
x = "IDH Municipal",
y = "Renda percapita",
colour = "Índice de Gini"
)
abjData::pnud_min |>
dplyr::filter(ano == 2010) |>
ggplot2::ggplot(ggplot2::aes(idhm, rdpc, colour = gini)) +
ggplot2::geom_point() +
ggthemes::theme_hc() +
ggplot2::labs(
title = "A relação entre IDH e Renda",
x = "IDH Municipal",
y = "Renda percapita",
colour = "Índice de Gini"
)
abjData::pnud_min |>
dplyr::filter(ano == 2010) |>
ggplot2::ggplot(ggplot2::aes(idhm, rdpc, colour = gini)) +
ggplot2::geom_point() +
ggthemes::theme_hc() +
ggplot2::labs(
title = "A relação entre IDH e Renda",
x = "IDH Municipal",
y = "Renda percapita",
colour = "Índice de Gini"
)
devtools::load_all(".")
run_app()
devtools::load_all(".")
arquivo_html <- fs::file_temp(ext = ".html")
arquivo_html
devtools::load_all(".")
run_app()
