marcelcosta/BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Limpieza de código.

Browse Source
This commit is contained in:
marcelcosta
2023-11-22 15:56:39 +01:00
parent faffd13524
commit d3dcbc3d51
1 changed files with 2 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
BDAccess/app.R
+2 -12
View File
@@ -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