You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
883 B
33 lines
883 B
source("sqlFunctions.R", encoding = "UTF-8")
|
|
|
|
# Cargar dependencias
|
|
sqlInitialize()
|
|
|
|
## Asegurarse de que la variable file sea la que nos corresponde:
|
|
file
|
|
|
|
# Inicializar conexión
|
|
dta<-odbcConnectAccess2007(access.file = file,
|
|
pwd = .rs.askForPassword("Enter password:"))
|
|
|
|
# Crear copia de seguridad
|
|
sqlBackUp()
|
|
|
|
## Importamos los NHC de las muestras nuevas
|
|
nhc.test<-read.xlsx("queryOV.xlsx", sheet = "NHC") %>% pull(NHC)
|
|
|
|
# Ver si ya hay muestras de los pacientes (opcional, para uno mismo)
|
|
sqlShowSamples()
|
|
|
|
# Generar código OVID para muestras nuevas
|
|
sqlGenOVID(sinc=T)
|
|
|
|
# Rellenar fichero plantilla "QueryOV.xlsx"
|
|
sqlWriteTemp()
|
|
|
|
####
|
|
# Rellenar la plantilla con la información de la muestra y/o la información clínica del paciente
|
|
####
|
|
|
|
# Sincronizar lo rellenado en las pestañas samples y clinics
|
|
sqlSincBD(sinc.samples = T, sinc.clinics = T)
|