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