Estou buscando dados do IBGE (SIDRA), preciso adicionar o último dado e dar update nos 3 períodos anteriores, sem alterar ou mexer nos dados mais antigos.
Segue o código:
library(sidrar)
df <- get_sidra (api = "/t/1846/n1/all/v/all/p/all/c11255/90707/d/v585%200")
#Selecionando as colunas que me interessa
df1 <- df[,c(7,10,13)]
Isso me retorna a série histórica do PIB
df1 <- Trimestre (Código) Setores e subsetores Valor
199601 PIB a preço de mercado 189323
... ... ...
201903 PIB a preço de mercado 1842700
201904 PIB a preço de mercado 1842740
E salvo este arquivo no meu computador
read.xlsx("df1.xlsx", sheetName = "PIB", header = TRUE)
Ao sair um novo dado, 202001, o IBGE revisa 3 dados anteriores (201902, 201903, 201904) e divulga o 202001,
então rodo apenas o código para buscar os 4 últimos dados, para evitar ter que buscar a série completa
df2 <- get_sidra (api = "/t/1846/n1/all/v/all/p/last%203/c11255/90707/d/v585%200")
Após ter o meu df2, quero dar update nos dados de 201902, 201903 e 201904, e adicionar os dados de 202001
Para adicionar apenas o novo dado, estava utilizando :
wb <- loadWorkbook("df1.xlsx")
addDataFrame(df2,getSheets(wb)$df2, col.names = FALSE, row.names = FALSE, startRow = nrow(read.xlsx("df1.xlsx", sheetName = "PIB"))+2)
saveWorkbook(wb,"df1.xlsx")
Mas essa função não me ajuda a dar update nas informações anteriores. Alguém poderia me dizer de qual maneira consigo fazer isso?