Commit 52f4db3d authored by Pepe Márquez Romero's avatar Pepe Márquez Romero

empezando a modificar el script remoto

parent 011cb357
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/]"
) )
This diff is collapsed.
...@@ -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