|
@ -157,28 +157,18 @@ server <- function(input, output) { |
|
|
print(dta) |
|
|
print(dta) |
|
|
if (input$backup == T){ |
|
|
if (input$backup == T){ |
|
|
if (! input$dbtype %in% c("UM","OV")){ |
|
|
if (! input$dbtype %in% c("UM","OV")){ |
|
|
sqlBackUp(dbfile = CCfile, bu.dir="CC_BU") |
|
|
|
|
|
|
|
|
sqlBackUp(dbfile = CCfile, bu.dir="CC_BU") |
|
|
} |
|
|
} |
|
|
if (input$dbtype == "UM"){ |
|
|
if (input$dbtype == "UM"){ |
|
|
sqlBackUp(dbfile = UMfile) |
|
|
sqlBackUp(dbfile = UMfile) |
|
|
} |
|
|
} |
|
|
if (input$dbtype == "OV"){ |
|
|
if (input$dbtype == "OV"){ |
|
|
sqlBackUp(dbfile = OVfile) |
|
|
|
|
|
|
|
|
sqlBackUp(dbfile = OVfile) |
|
|
} |
|
|
} |
|
|
print("Back up realizado.") |
|
|
print("Back up realizado.") |
|
|
} |
|
|
} |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|
# observe({ |
|
|
|
|
|
# if (!is.null(input$file_access)){ |
|
|
|
|
|
# # Inicializar conexión |
|
|
|
|
|
# dta<<-odbcConnectAccess2007(access.file = file, |
|
|
|
|
|
# pwd = .rs.askForPassword("Enter password:")) |
|
|
|
|
|
# print(dta) |
|
|
|
|
|
# sqlBackUp() |
|
|
|
|
|
# } |
|
|
|
|
|
# }) |
|
|
|
|
|
|
|
|
|
|
|
observe({ |
|
|
observe({ |
|
|
if (!is.null(input$file_query)){ |
|
|
if (!is.null(input$file_query)){ |
|
|
## Importamos los NHC de las muestras nuevas |
|
|
## Importamos los NHC de las muestras nuevas |
|
|