Skip to content

Update calculo.R #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
Lappicy wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Update calculo.R #2

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
22 changes: 11 additions & 11 deletions R/calculo.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -546,18 +546,18 @@ gera_necessidade_por_municipio <- function(state) {
# calcular investimento total somando por linha
agua <- dplyr::mutate(
agua,
"AA Investimento Total" = `AA Investimento Total Urbana` + `AA Investimento Total Rural`,
"AA Investimento Expansão" = `AA Investimento Expansão Urbana` + `AA Investimento Expansão Rural`,
"AA Investimento Reposição" = `AA Investimento Reposição Urbana` + `AA Investimento Reposição Rural`
"AA Investimento Total" = dplyr::coalesce(`AA Investimento Total Urbana` , 0) + dplyr::coalesce(`AA Investimento Total Rural`, 0),
"AA Investimento Expansão" = dplyr::coalesce(`AA Investimento Expansão Urbana` , 0) + dplyr::coalesce(`AA Investimento Expansão Rural`, 0),
"AA Investimento Reposição" = dplyr::coalesce(`AA Investimento Reposição Urbana` , 0) + dplyr::coalesce(`AA Investimento Reposição Rural`, 0)
)

esgoto <- state$esgoto
esgoto <- dplyr::select(esgoto, codigo_municipio, investimento_expansao, investimento_reposicao, investimento_total)
esgoto <- dplyr::rename(
esgoto,
"ES Investimento Expansão" = investimento_expansao,
"ES Investimento Reposição" = investimento_reposicao,
"ES Investimento Total" = investimento_total
"ES Investimento Expansão Urbana" = investimento_expansao,
"ES Investimento Reposição Urbana" = investimento_reposicao,
"ES Investimento Total Urbana" = investimento_total
)
esgoto <- dplyr::left_join(base_municipios(), esgoto, by = "codigo_municipio")
esgoto_rural <- state$esgoto_rural
Expand All @@ -575,9 +575,9 @@ gera_necessidade_por_municipio <- function(state) {
# calcular investimento total
esgoto <- dplyr::mutate(
esgoto,
"ES Investimento Total" = `ES Investimento Total` + `ES Investimento Total Rural`,
"ES Investimento Expansão" = `ES Investimento Expansão` + `ES Investimento Expansão Rural`,
"ES Investimento Reposição" = `ES Investimento Reposição` + `ES Investimento Reposição Rural`
"ES Investimento Total" = dplyr::coalesce(`ES Investimento Total Urbana` , 0) + dplyr::coalesce(`ES Investimento Total Rural`, 0),
"ES Investimento Expansão" = dplyr::coalesce(`ES Investimento Expansão Urbana` , 0) + dplyr::coalesce(`ES Investimento Expansão Rural`, 0),
"ES Investimento Reposição" = dplyr::coalesce(`ES Investimento Reposição Urbana` , 0) + dplyr::coalesce(`ES Investimento Reposição Rural`, 0)
)
# juntar as tabelas de água e esgoto

Expand All @@ -593,8 +593,8 @@ gera_necessidade_por_municipio <- function(state) {
"ES Investimento Expansão", "ES Investimento Reposição", "ES Investimento Total",
"AA Investimento Expansão Urbana", "AA Investimento Reposição Urbana", "AA Investimento Total Urbana",
"AA Investimento Expansão Rural", "AA Investimento Reposição Rural", "AA Investimento Total Rural",
"ES Investimento Expansão Rural", "ES Investimento Reposição Rural", "ES Investimento Total Rural",
"ES Investimento Expansão", "ES Investimento Reposição", "ES Investimento Total"
"ES Investimento Expansão Urbana", "ES Investimento Reposição Urbana", "ES Investimento Total Urbana",
"ES Investimento Expansão Rural", "ES Investimento Reposição Rural", "ES Investimento Total Rural"
)
readr::write_csv2(
tabela,
Expand Down