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 hospital_names <- c( #Añadir Los de Baskent y sacrocuore
"Princesa", "Princesa",
"CIPH", "CIPH",
"UMF_Iasis", "UMF_Iasis",
"SMUC", "SMUC",
"HM", "HM",
"Porto", "Porto",
"FJD", "FJD",
"Coimbra", "Coimbra",
"UNAV", "UNAV",
"TU", "TU",
"Ankara Impatient", "Ankara Impatient",
"Konya Impatient", "Konya Impatient",
"Istambul Impatient", "Istambul Impatient",
"Izmir Impatient", "Izmir Impatient",
"Alanya Impatient", "Alanya Impatient",
"Adana Impatient", "Adana Impatient",
"Ankara Outpatient", "Ankara Outpatient",
"Konya Outpatient", "Konya Outpatient",
"Istambul Outpatient", "Istambul Outpatient",
"Izmir Outpatient", "Izmir Outpatient",
"Alanya Outpatient", "Alanya Outpatient",
"Sacrocuore Emergency", "Sacrocuore Emergency",
"Sacrocuore Employees", "Sacrocuore Employees",
"Sacrocuore Verona", "Sacrocuore Verona",
"Sacrocuore Isaric", "Sacrocuore Isaric",
"TUDublin", "TUDublin",
"UMF_Cluj", "UMF_Cluj",
"UdeA", "UdeA",
"Inantro", "Inantro",
"UNSA", "UNSA",
"UZA" "UZA"
) )
project_names <- c( project_names <- c(
"FIBHULP", "FIBHULP",
"CIPH_unCoVer", "CIPH_unCoVer",
"umfiasi", "umfiasi",
"SMUC", "SMUC",
"FiHM", "FiHM",
"uncover-up", "uncover-up",
"IISFJD", "IISFJD",
"IPC", "IPC",
"unCOVer-UNAV", "unCOVer-UNAV",
"TU_Uncover", "TU_Uncover",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"BU", "BU",
"S_uncover", "S_uncover",
"S_uncover", "S_uncover",
"S_uncover", "S_uncover",
"S_uncover", "S_uncover",
"TUDublin", "TUDublin",
"UMF_Cluj", "UMF_Cluj",
"INS_Data", "INS_Data",
"INANTRO", "INANTRO",
"UnCoVer-BiH-Final", "UnCoVer-BiH-Final",
"UZA" "UZA"
) )
resource_names <- c( resource_names <- c(
"Harmonized_variables_2", "Harmonized_variables_2",
"CIPH_numeric_derivated", "CIPH_numeric_derivated",
"20220719_HarmonisedUMFIasi", "20220719_HarmonisedUMFIasi",
"SMUC_resource", "SMUC_resource",
"20220720_HarmonisedHM", "20220919_FiHM",
"Resource_derived", "Resource_derived",
"IISFJD_Harmonized_1", "IISFJD_Harmonized_1",
"IPC_Harmonized", "IPC_Harmonized",
"UNAV_rsc", "UNAV_rsc",
"TU_Harmonized", "TU_Harmonized",
"inpatient_ankara", "inpatient_ankara",
"inpatient_konya", "inpatient_konya",
"inpatient_istanbul", "inpatient_istanbul",
"inpatient_izmir", "inpatient_izmir",
"inpatient_alanya", "inpatient_alanya",
"inpatient_adana", "inpatient_adana",
"outpatient_ankara", "outpatient_ankara",
"outpatient_konya", "outpatient_konya",
"outpatient_istanbul", "outpatient_istanbul",
"outpatient_izmir", "outpatient_izmir",
"outpatient_alanya", "outpatient_alanya",
"emergency", "emergency",
"employees", "employees",
"verona", "verona",
"isaric", "isaric",
"TUDublin_harmonised", "TUDublin_harmonised",
"Romania", "Romania",
"colombia_all", "colombia_all",
"Inantro", "Inantro",
"20220722_HarmonizedUNSA", "20220722_HarmonizedUNSA",
"UZA_prelim" "UZA_prelim"
) )
urls <- c( urls <- c(
"https://192.168.1.200:8001", "https://192.168.1.200:8001",
"https://192.168.1.200:8002", "https://192.168.1.200:8002",
"https://192.168.1.200:8003", "https://192.168.1.200:8003",
"https://192.168.1.200:8006", "https://192.168.1.200:8006",
"https://192.168.1.50:9002", "https://192.168.1.50:9002",
"https://192.168.1.102", "https://192.168.1.102",
"https://uncover.itg.be", "https://uncover.itg.be",
"https://uncover.itg.be", "https://uncover.itg.be",
"https://192.168.1.50:9001", "https://192.168.1.50:9001",
"https://192.168.1.200:8004", "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.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://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://uncover.itg.be",
"https://192.168.1.200:8005", "https://192.168.1.200:8005",
"https://fenfisdi.udea.edu.co/opal", "https://fenfisdi.udea.edu.co/opal",
"https://192.168.1.200:8007", "https://192.168.1.200:8007",
"https://192.168.1.200:8008", "https://192.168.1.200:8008",
"https://uncover.itg.be" "https://uncover.itg.be"
) )
users <- c( users <- c(
"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", "emertens",
"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", "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", "emertens",
"user_analisis", "user_analisis",
"user_analisis", "user_analisis",
"user_analisis", "user_analisis",
"user_analisis", "user_analisis",
"emertens" "emertens"
) )
pass <- c( pass <- c(
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"3^z4AV.)hG5~PT/]", "3^z4AV.)hG5~PT/]",
"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", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"3^z4AV.)hG5~PT/]", "3^z4AV.)hG5~PT/]",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"Ekfl07UUgz", "Ekfl07UUgz",
"3^z4AV.)hG5~PT/]" "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){ ...@@ -120,8 +120,8 @@ check_valid_values_continuous <- function(colname , codebook_param , column){
str_res <- "No failing values" str_res <- "No failing values"
else{ else{
failing_values <- failing_values[!is.na(failing_values)] failing_values <- failing_values[!is.na(failing_values)]
#str_res <- paste( colname , paste(unlist(failing_values) , collapse =" ")) str_res <- paste( colname , paste(unlist(failing_values) , collapse =" "))
str_res <- paste(colname , collapse =" ") #str_res <- paste(colname , collapse =" ")
str_res <- paste(str_res , "should be in range" , range_as_str, "(continuous)", sep = " ") 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){ ...@@ -140,8 +140,8 @@ check_valid_values_binary <- function(colname , column){
else{ else{
range_as_str <- "0-1 (binary)" range_as_str <- "0-1 (binary)"
failing_values <- failing_values[!is.na(failing_values)] failing_values <- failing_values[!is.na(failing_values)]
#str_res <- paste(colname , paste(unlist(failing_values) , collapse =" ")) str_res <- paste(colname , paste(unlist(failing_values) , collapse =" "))
str_res <- paste(colname , collapse =" ") #str_res <- paste(colname , collapse =" ")
str_res <- paste(str_res , "should be in range" , range_as_str, sep = " ") 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