|
@ -633,6 +633,7 @@ server <- function(input, output) { |
|
|
|
|
|
|
|
|
pop_sql<-read.xlsx(paste0(db_path,"Panel3.xlsx"), check.names = F, sep.names = " ") |
|
|
pop_sql<-read.xlsx(paste0(db_path,"Panel3.xlsx"), check.names = F, sep.names = " ") |
|
|
pop_sp<-pop_sp %>% merge(pop_sql %>% slice(0), all=T) %>% select(colnames(pop_sql)) |
|
|
pop_sp<-pop_sp %>% merge(pop_sql %>% slice(0), all=T) %>% select(colnames(pop_sql)) |
|
|
|
|
|
pop_sp<-rbind(pop_sql, pop_sp) |
|
|
|
|
|
|
|
|
write.xlsx(pop_sp, paste0(db_path, "Panel3.xlsx")) |
|
|
write.xlsx(pop_sp, paste0(db_path, "Panel3.xlsx")) |
|
|
print("Tabla Panel3 sincronizada.") |
|
|
print("Tabla Panel3 sincronizada.") |
|
|