Skip to content

H
Harmonize_Scripts
Commit 52f4db3d authored by Pepe Márquez Romero's avatar Pepe Márquez Romero
Browse files
Options

empezando a modificar el script remoto

parent 011cb357
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 333 additions and 356 deletions
connection_parameters.R
View file @ 52f4db3d
hospital_names <- c( #Añadir Los de Baskent y sacrocuore
"Princesa",
"CIPH",
"UMF_Iasis",
"SMUC",
"HM",
"Porto",
"FJD",
"Coimbra",
"UNAV",
"TU",
"Ankara Impatient",
"Konya Impatient",
"Istambul Impatient",
"Izmir Impatient",
"Alanya Impatient",
"Adana Impatient",
"Ankara Outpatient",
"Konya Outpatient",
"Istambul Outpatient",
"Izmir Outpatient",
"Alanya Outpatient",
"Sacrocuore Emergency",
"Sacrocuore Employees",
"Sacrocuore Verona",
"Sacrocuore Isaric",
"TUDublin",
"UMF_Cluj",
"UdeA",
"Inantro",
"UNSA",
"UZA"
)
project_names <- c(
"FIBHULP",
"CIPH_unCoVer",
"umfiasi",
"SMUC",
"FiHM",
"uncover-up",
"IISFJD",
"IPC",
"unCOVer-UNAV",
"TU_Uncover",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"S_uncover",
"S_uncover",
"S_uncover",
"S_uncover",
"TUDublin",
"UMF_Cluj",
"INS_Data",
"INANTRO",
"UnCoVer-BiH-Final",
"UZA"
)
resource_names <- c(
"Harmonized_variables_2",
"CIPH_numeric_derivated",
"20220719_HarmonisedUMFIasi",
"SMUC_resource",
"20220720_HarmonisedHM",
"Resource_derived",
"IISFJD_Harmonized_1",
"IPC_Harmonized",
"UNAV_rsc",
"TU_Harmonized",
"inpatient_ankara",
"inpatient_konya",
"inpatient_istanbul",
"inpatient_izmir",
"inpatient_alanya",
"inpatient_adana",
"outpatient_ankara",
"outpatient_konya",
"outpatient_istanbul",
"outpatient_izmir",
"outpatient_alanya",
"emergency",
"employees",
"verona",
"isaric",
"TUDublin_harmonised",
"Romania",
"colombia_all",
"Inantro",
"20220722_HarmonizedUNSA",
"UZA_prelim"
)
urls <- c(
"https://192.168.1.200:8001",
"https://192.168.1.200:8002",
"https://192.168.1.200:8003",
"https://192.168.1.200:8006",
"https://192.168.1.50:9002",
"https://192.168.1.102",
"https://uncover.itg.be",
"https://uncover.itg.be",
"https://192.168.1.50:9001",
"https://192.168.1.200:8004",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.50:8890",
"https://192.168.1.50:8890",
"https://192.168.1.50:8890",
"https://192.168.1.50:8890",
"https://uncover.itg.be",
"https://192.168.1.200:8005",
"https://fenfisdi.udea.edu.co/opal",
"https://192.168.1.200:8007",
"https://192.168.1.200:8008",
"https://uncover.itg.be"
)
users <- c(
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"emertens",
"emertens",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"emertens",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"emertens"
)
pass <- c(
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"3^z4AV.)hG5~PT/]",
"3^z4AV.)hG5~PT/]",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"3^z4AV.)hG5~PT/]",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"3^z4AV.)hG5~PT/]"
)
hospital_names <- c( #Añadir Los de Baskent y sacrocuore
"Princesa",
"CIPH",
"UMF_Iasis",
"SMUC",
"HM",
"Porto",
"FJD",
"Coimbra",
"UNAV",
"TU",
"Ankara Impatient",
"Konya Impatient",
"Istambul Impatient",
"Izmir Impatient",
"Alanya Impatient",
"Adana Impatient",
"Ankara Outpatient",
"Konya Outpatient",
"Istambul Outpatient",
"Izmir Outpatient",
"Alanya Outpatient",
"Sacrocuore Emergency",
"Sacrocuore Employees",
"Sacrocuore Verona",
"Sacrocuore Isaric",
"TUDublin",
"UMF_Cluj",
"UdeA",
"Inantro",
"UNSA",
"UZA"
)
project_names <- c(
"FIBHULP",
"CIPH_unCoVer",
"umfiasi",
"SMUC",
"FiHM",
"uncover-up",
"IISFJD",
"IPC",
"unCOVer-UNAV",
"TU_Uncover",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"BU",
"S_uncover",
"S_uncover",
"S_uncover",
"S_uncover",
"TUDublin",
"UMF_Cluj",
"INS_Data",
"INANTRO",
"UnCoVer-BiH-Final",
"UZA"
)
resource_names <- c(
"Harmonized_variables_2",
"CIPH_numeric_derivated",
"20220719_HarmonisedUMFIasi",
"SMUC_resource",
"20220919_FiHM",
"Resource_derived",
"IISFJD_Harmonized_1",
"IPC_Harmonized",
"UNAV_rsc",
"TU_Harmonized",
"inpatient_ankara",
"inpatient_konya",
"inpatient_istanbul",
"inpatient_izmir",
"inpatient_alanya",
"inpatient_adana",
"outpatient_ankara",
"outpatient_konya",
"outpatient_istanbul",
"outpatient_izmir",
"outpatient_alanya",
"emergency",
"employees",
"verona",
"isaric",
"TUDublin_harmonised",
"Romania",
"colombia_all",
"Inantro",
"20220722_HarmonizedUNSA",
"UZA_prelim"
)
urls <- c(
"https://192.168.1.200:8001",
"https://192.168.1.200:8002",
"https://192.168.1.200:8003",
"https://192.168.1.200:8006",
"https://192.168.1.50:9002",
"https://192.168.1.102",
"https://uncover.itg.be",
"https://uncover.itg.be",
"https://192.168.1.50:9001",
"https://192.168.1.200:8004",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.101:8443",
"https://192.168.1.50:8890",
"https://192.168.1.50:8890",
"https://192.168.1.50:8890",
"https://192.168.1.50:8890",
"https://uncover.itg.be",
"https://192.168.1.200:8005",
"https://fenfisdi.udea.edu.co/opal",
"https://192.168.1.200:8007",
"https://192.168.1.200:8008",
"https://uncover.itg.be"
)
users <- c(
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"emertens",
"emertens",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"emertens",
"user_analisis",
"user_analisis",
"user_analisis",
"user_analisis",
"emertens"
)
pass <- c(
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"3^z4AV.)hG5~PT/]",
"3^z4AV.)hG5~PT/]",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"3^z4AV.)hG5~PT/]",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"Ekfl07UUgz",
"3^z4AV.)hG5~PT/]"
)
valid_variables_script.R
View file @ 52f4db3d
This diff is collapsed.
valid_variables_script_local.R
View file @ 52f4db3d
......@@ -120,8 +120,8 @@ check_valid_values_continuous <- function(colname , codebook_param , column){
str_res <- "No failing values"
else{
failing_values <- failing_values[!is.na(failing_values)]
#str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
str_res <- paste(colname , collapse =" ")
str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
#str_res <- paste(colname , collapse =" ")
str_res <- paste(str_res , "should be in range" , range_as_str, "(continuous)", sep = " ")
}
......@@ -140,8 +140,8 @@ check_valid_values_binary <- function(colname , column){
else{
range_as_str <- "0-1 (binary)"
failing_values <- failing_values[!is.na(failing_values)]
#str_res <- paste(colname , paste(unlist(failing_values) , collapse =" "))
str_res <- paste(colname , collapse =" ")
str_res <- paste(colname , paste(unlist(failing_values) , collapse =" "))
#str_res <- paste(colname , collapse =" ")
str_res <- paste(str_res , "should be in range" , range_as_str, sep = " ")
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment