Browse Source

Corrección de la función de backup.

dev
marcelcosta 2 years ago
parent
commit
43b807cc63
1 changed files with 8 additions and 4 deletions
  1. +8
    -4
      BDAccess/app.R

+ 8
- 4
BDAccess/app.R

@ -157,11 +157,15 @@ server <- function(input, output) {
print(dta)
if (input$backup == T){
if (! input$dbtype %in% c("UM","OV")){
sqlBackUp(bu.dir="CC_BU")
}else{
sqlBackUp()
sqlBackUp(dbfile = CCfile, bu.dir="CC_BU")
}
if (input$dbtype == "UM"){
sqlBackUp(dbfile = UMfile)
}
if (input$dbtype == "OV"){
sqlBackUp(dbfile = OVfile)
}
print("Back up realizado.")
}
})

Loading…
Cancel
Save