Browse Source

Limpieza de código.

main
marcelcosta 1 year ago
parent
commit
d3dcbc3d51
1 changed files with 2 additions and 12 deletions
  1. +2
    -12
      BDAccess/app.R

+ 2
- 12
BDAccess/app.R

@ -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

Loading…
Cancel
Save