* using log directory 'd:/RCompile/CRANincoming/R-devel/ciecl.Rcheck'
* using R Under development (unstable) (2026-01-18 r89306 ucrt)
* using platform: x86_64-w64-mingw32
* R was compiled by
    gcc.exe (GCC) 14.3.0
    GNU Fortran (GCC) 14.3.0
* running under: Windows Server 2022 x64 (build 20348)
* using session charset: UTF-8
* checking for file 'ciecl/DESCRIPTION' ... OK
* this is package 'ciecl' version '0.9.0'
* package encoding: UTF-8
* checking CRAN incoming feasibility ... NOTE
Maintainer: 'Rodolfo Tasso Suazo <rtasso@uchile.cl>'

New submission

Found the following (possibly) invalid URLs:
  URL: https://www.bcn.cl/leychile/navegar?i=1112064
    From: README.md
    Status: 401
    Message: Unauthorized

Found the following (possibly) invalid file URI:
  URI: DEPENDENCIAS.md
    From: README.md
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking whether package 'ciecl' can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking for future file timestamps ... OK
* checking 'build' directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking code files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of 'data' directory ... OK
* checking data for non-ASCII characters ... OK
* checking LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking installed files from 'inst/doc' ... OK
* checking files in 'vignettes' ... OK
* checking examples ... ERROR
Running examples in 'ciecl-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: cie_lookup
> ### Title: Busqueda exacta por codigo CIE-10
> ### Aliases: cie_lookup
> 
> ### ** Examples
> 
> cie_lookup("E11.0")       # Con punto
# A tibble: 1 × 10
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11.0  Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> cie_lookup("E110")        # Sin punto
# A tibble: 1 × 10
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11.0  Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> cie_lookup("E11")         # Solo categoria
# A tibble: 1 × 10
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11    Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> cie_lookup("E11", expandir = TRUE)  # Todos E11.x
# A tibble: 11 × 10
   codigo descripcion      categoria seccion capitulo_nombre inclusion exclusion
   <chr>  <chr>            <chr>     <chr>   <chr>           <chr>     <chr>    
 1 E11    Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 2 E11.0  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 3 E11.1  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 4 E11.2  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 5 E11.3  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 6 E11.4  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 7 E11.5  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 8 E11.6  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
 9 E11.7  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
10 E11.8  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
11 E11.9  Diabetes mellit… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> # Vectorizado - multiples codigos y formatos
> cie_lookup(c("E11.0", "Z00", "I10"))
# A tibble: 3 × 10
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11.0  Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
2 I10    Hipertensión ese… I10 HIPE… I10-I1… Cap.09  ENFERM… <NA>      <NA>     
3 Z00    Examen general e… Z00 EXAM… Z00-Z1… Cap.21  FACTOR… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> # Con descripcion completa
> cie_lookup("E110", descripcion_completa = TRUE)
# A tibble: 1 × 11
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11.0  Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 4 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>,
#   descripcion_completa <chr>
> # Extraer codigo de texto con ruido (solo codigo escalar)
> cie_lookup("CIE:E11.0", extract = TRUE)
# A tibble: 1 × 10
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11.0  Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> cie_lookup("E11.0-confirmado", extract = TRUE)
# A tibble: 1 × 10
  codigo descripcion       categoria seccion capitulo_nombre inclusion exclusion
  <chr>  <chr>             <chr>     <chr>   <chr>           <chr>     <chr>    
1 E11.0  Diabetes mellitu… E11 DIAB… E08-E1… Cap.04  ENFERM… <NA>      <NA>     
# ℹ 3 more variables: capitulo <chr>, es_daga <int>, es_cruz <int>
> # Nota: Para vectores multiples usar extract=FALSE (default)
> # Buscar por siglas medicas
> cie_lookup("IAM", check_siglas = TRUE)
Error: no such table: cie10_fts
Execution halted
* checking for unstated dependencies in 'tests' ... OK
* checking tests ... [21s] ERROR
  Running 'audit_elite_cran.R'
  Running 'testthat.R' [13s]
Running the tests in 'tests/audit_elite_cran.R' failed.
Complete output:
  > # =============================================================================
  > # AUDITORÍA ELITE CRAN - ciecl package
  > # =============================================================================
  > # Este script ejecuta pruebas exhaustivas para asegurar calidad CRAN
  > # =============================================================================
  > 
  > cat("=== AUDITORÍA ELITE CRAN - ciecl ===\n\n")
  === AUDITORÍA ELITE CRAN - ciecl ===
  
  > 
  > library(ciecl)
  > library(testthat)
  > 
  > # Directorio de bases sintéticas
  > SYNTH_DIR <- "D:/01_PROYECTOS/PROY_BBDD_SINTETICAS/data/output"
  > 
  > errors <- list()
  > warnings_found <- list()
  > 
  > # -----------------------------------------------------------------------------
  > # 1. PRUEBAS CON BASES SINTÉTICAS
  > # -----------------------------------------------------------------------------
  > cat("1. PRUEBAS CON BASES SINTÉTICAS\n")
  1. PRUEBAS CON BASES SINTÉTICAS
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > synth_files <- list.files(SYNTH_DIR, pattern = "\\.csv$", full.names = TRUE)
  > cat("Archivos encontrados:", length(synth_files), "\n\n")
  Archivos encontrados: 0 
  
  > 
  > for (f in synth_files) {
  +   fname <- basename(f)
  +   cat("  Testing:", fname, "... ")
  +   
  +   tryCatch({
  +     # Leer muestra (primeras 1000 filas)
  +     df <- read.csv(f, nrows = 1000, stringsAsFactors = FALSE)
  +     
  +     # Detectar columna de códigos
  +     code_col <- NULL
  +     for (col in names(df)) {
  +       if (grepl("codigo|code|cie|diag", tolower(col))) {
  +         code_col <- col
  +         break
  +       }
  +     }
  +     
  +     if (is.null(code_col)) code_col <- names(df)[1]
  +     
  +     codes <- df[[code_col]]
  +     
  +     # Test cie_normalizar
  +     norm_result <- suppressWarnings(cie_normalizar(codes[1:min(100, length(codes))]))
  +     
  +     # Test cie_lookup (solo códigos válidos)
  +     valid_codes <- norm_result[grepl("^[A-Z]\\d", norm_result)]
  +     if (length(valid_codes) > 0) {
  +       lookup_result <- suppressWarnings(suppressMessages(
  +         cie_lookup(valid_codes[1:min(10, length(valid_codes))])
  +       ))
  +     }
  +     
  +     # Test cie_validate_vector
  +     valid_result <- cie_validate_vector(codes[1:min(100, length(codes))])
  +     
  +     cat("OK\n")
  +     
  +   }, error = function(e) {
  +     cat("ERROR:", conditionMessage(e), "\n")
  +     errors[[fname]] <<- conditionMessage(e)
  +   })
  + }
  > 
  > # -----------------------------------------------------------------------------
  > # 2. EDGE CASES EXTREMOS
  > # -----------------------------------------------------------------------------
  > cat("\n2. EDGE CASES EXTREMOS\n")
  
  2. EDGE CASES EXTREMOS
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > edge_cases <- list(
  +   "NULL input" = function() cie_normalizar(NULL),
  +   "Empty vector" = function() cie_normalizar(character(0)),
  +   "All NA" = function() cie_normalizar(c(NA, NA, NA)),
  +   "Very long string" = function() cie_normalizar(paste(rep("A", 1000), collapse = "")),
  +   "Special chars" = function() cie_normalizar("E11.0™©®"),
  +   "Unicode stress" = function() cie_normalizar("糖尿病E11.0диабет"),
  +   "SQL injection attempt" = function() cie_normalizar("E11.0'; DROP TABLE--"),
  +   "Newlines" = function() cie_normalizar("E11\n.0"),
  +   "Tabs" = function() cie_normalizar("E11\t.0"),
  +   "Only whitespace" = function() cie_normalizar("   "),
  +   "Mixed encoding" = function() cie_normalizar(c("E11.0", "diabétes", "niño")),
  +   "Huge vector" = function() cie_normalizar(rep("E11.0", 10000)),
  +   "Numeric input coerced" = function() cie_normalizar(as.character(110)),
  +   "Factor input" = function() cie_normalizar(factor(c("E11.0", "I10")))
  + )
  > 
  > for (name in names(edge_cases)) {
  +   cat("  Testing:", name, "... ")
  +   tryCatch({
  +     result <- suppressWarnings(edge_cases[[name]]())
  +     cat("OK\n")
  +   }, error = function(e) {
  +     # Algunos errores son esperados
  +     if (grepl("debe ser|cannot|NULL|vacio", conditionMessage(e), ignore.case = TRUE)) {
  +       cat("Expected error OK\n")
  +     } else {
  +       cat("UNEXPECTED ERROR:", conditionMessage(e), "\n")
  +       errors[[name]] <<- conditionMessage(e)
  +     }
  +   })
  + }
    Testing: NULL input ... OK
    Testing: Empty vector ... OK
    Testing: All NA ... OK
    Testing: Very long string ... OK
    Testing: Special chars ... OK
    Testing: Unicode stress ... OK
    Testing: SQL injection attempt ... OK
    Testing: Newlines ... OK
    Testing: Tabs ... OK
    Testing: Only whitespace ... OK
    Testing: Mixed encoding ... OK
    Testing: Huge vector ... OK
    Testing: Numeric input coerced ... OK
    Testing: Factor input ... OK
  > 
  > # -----------------------------------------------------------------------------
  > # 3. PRUEBAS DE BÚSQUEDA FUZZY
  > # -----------------------------------------------------------------------------
  > cat("\n3. PRUEBAS DE BÚSQUEDA FUZZY\n")
  
  3. PRUEBAS DE BÚSQUEDA FUZZY
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > search_tests <- c(
  +   "diabetes",
  +   "diabetis",  # typo
  +   "DIABETES",
  +   "DiAbEtEs",
  +   "neumonia",
  +   "neumonía",
  +   "hipertension",
  +   "hipertensión arterial",
  +   "cancer",
  +   "cáncer de mama",
  +   "infarto",
  +   "IAM",
  +   "HTA",
  +   "EPOC",
  +   "VIH",
  +   "tuberculosis",
  +   "TBC",
  +   "",  # vacío
  +   "xyzabc123",  # sin resultados
  +   "a",  # muy corto
  +   paste(rep("diabetes ", 100), collapse = "")  # muy largo
  + )
  > 
  > for (term in search_tests) {
  +   display_term <- if (nchar(term) > 30) paste0(substr(term, 1, 30), "...") else term
  +   cat("  Searching:", sprintf("%-35s", paste0('"', display_term, '"')), "... ")
  +   tryCatch({
  +     result <- suppressWarnings(suppressMessages(
  +       cie_search(term, max_results = 5)
  +     ))
  +     cat("OK (", nrow(result), " results)\n", sep = "")
  +   }, error = function(e) {
  +     if (grepl("2 caracteres|vacio|debe ser", conditionMessage(e), ignore.case = TRUE)) {
  +       cat("Expected error OK\n")
  +     } else {
  +       cat("ERROR:", conditionMessage(e), "\n")
  +       errors[[paste0("search_", display_term)]] <<- conditionMessage(e)
  +     }
  +   })
  + }
    Searching: "diabetes"                          ... ERROR: no such table: cie10_fts 
    Searching: "diabetis"                          ... ERROR: no such table: cie10_fts 
    Searching: "DIABETES"                          ... ERROR: no such table: cie10_fts 
    Searching: "DiAbEtEs"                          ... ERROR: no such table: cie10_fts 
    Searching: "neumonia"                          ... ERROR: no such table: cie10_fts 
    Searching: "neumonía"                         ... ERROR: no such table: cie10_fts 
    Searching: "hipertension"                      ... ERROR: no such table: cie10_fts 
    Searching: "hipertensión arterial"            ... ERROR: no such table: cie10_fts 
    Searching: "cancer"                            ... ERROR: no such table: cie10_fts 
    Searching: "cáncer de mama"                   ... ERROR: no such table: cie10_fts 
    Searching: "infarto"                           ... ERROR: no such table: cie10_fts 
    Searching: "IAM"                               ... ERROR: no such table: cie10_fts 
    Searching: "HTA"                               ... ERROR: no such table: cie10_fts 
    Searching: "EPOC"                              ... ERROR: no such table: cie10_fts 
    Searching: "VIH"                               ... ERROR: no such table: cie10_fts 
    Searching: "tuberculosis"                      ... ERROR: no such table: cie10_fts 
    Searching: "TBC"                               ... ERROR: no such table: cie10_fts 
    Searching: ""                                  ... Expected error OK
    Searching: "xyzabc123"                         ... ERROR: no such table: cie10_fts 
    Searching: "a"                                 ... Expected error OK
    Searching: "diabetes diabetes diabetes dia..." ... ERROR: no such table: cie10_fts 
  > 
  > # -----------------------------------------------------------------------------
  > # 4. PRUEBAS DE COMORBILIDAD
  > # -----------------------------------------------------------------------------
  > cat("\n4. PRUEBAS DE COMORBILIDAD\n")
  
  4. PRUEBAS DE COMORBILIDAD
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > # Crear datos de prueba
  > comorbid_data <- data.frame(
  +   id = c(1, 1, 1, 2, 2, 3, 3, 3, 3),
  +   codigo = c("I21.0", "E11.0", "I10", "J44.0", "E11.9", "C34.0", "I50.0", "N18.3", "E78.0")
  + )
  > 
  > cat("  Testing cie_comorbid Charlson... ")
    Testing cie_comorbid Charlson... > tryCatch({
  +   result <- suppressWarnings(cie_comorbid(comorbid_data, id = "id", code = "codigo", map = "charlson"))
  +   cat("OK (", nrow(result), " patients)\n", sep = "")
  + }, error = function(e) {
  +   cat("ERROR:", conditionMessage(e), "\n")
  +   errors[["comorbid_charlson"]] <<- conditionMessage(e)
  + })
  OK (3 patients)
  > 
  > cat("  Testing cie_comorbid Elixhauser... ")
    Testing cie_comorbid Elixhauser... > tryCatch({
  +   result <- suppressWarnings(cie_comorbid(comorbid_data, id = "id", code = "codigo", map = "elixhauser"))
  +   cat("OK (", nrow(result), " patients)\n", sep = "")
  + }, error = function(e) {
  +   cat("ERROR:", conditionMessage(e), "\n")
  +   errors[["comorbid_elixhauser"]] <<- conditionMessage(e)
  + })
  OK (3 patients)
  > 
  > # Test con datos vacíos
  > cat("  Testing cie_comorbid empty data... ")
    Testing cie_comorbid empty data... > tryCatch({
  +   empty_df <- data.frame(id = integer(0), codigo = character(0))
  +   result <- suppressWarnings(cie_comorbid(empty_df, id = "id", code = "codigo"))
  +   cat("OK\n")
  + }, error = function(e) {
  +   # El paquete comorbidity subyacente lanza error con datos vacíos - esto es esperado
  +   if (grepl("vacio|empty|filas|non-missing", conditionMessage(e), ignore.case = TRUE)) {
  +     cat("Expected error OK\n")
  +   } else {
  +     cat("ERROR:", conditionMessage(e), "\n")
  +     errors[["comorbid_empty"]] <<- conditionMessage(e)
  +   }
  + })
  Expected error OK
  > 
  > # -----------------------------------------------------------------------------
  > # 5. PRUEBAS SQL
  > # -----------------------------------------------------------------------------
  > cat("\n5. PRUEBAS SQL\n")
  
  5. PRUEBAS SQL
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > sql_tests <- list(
  +   "Basic SELECT" = "SELECT * FROM cie10 LIMIT 5",
  +   "WHERE clause" = "SELECT * FROM cie10 WHERE codigo LIKE 'E11%' LIMIT 5",
  +   "COUNT" = "SELECT COUNT(*) as n FROM cie10",
  +   "GROUP BY" = "SELECT capitulo, COUNT(*) as n FROM cie10 GROUP BY capitulo LIMIT 5"
  + )
  > 
  > for (name in names(sql_tests)) {
  +   cat("  Testing:", name, "... ")
  +   tryCatch({
  +     result <- cie10_sql(sql_tests[[name]])
  +     cat("OK (", nrow(result), " rows)\n", sep = "")
  +   }, error = function(e) {
  +     cat("ERROR:", conditionMessage(e), "\n")
  +     errors[[paste0("sql_", name)]] <<- conditionMessage(e)
  +   })
  + }
    Testing: Basic SELECT ... OK (5 rows)
    Testing: WHERE clause ... OK (5 rows)
    Testing: COUNT ... OK (1 rows)
    Testing: GROUP BY ... OK (5 rows)
  > 
  > # SQL injection attempts (should fail)
  > sql_attacks <- c(
  +   "DROP TABLE cie10",
  +   "DELETE FROM cie10",
  +   "UPDATE cie10 SET codigo = 'X'",
  +   "INSERT INTO cie10 VALUES ('X', 'X')",
  +   "SELECT * FROM cie10; DROP TABLE cie10"
  + )
  > 
  > cat("  Testing SQL injection protection:\n")
    Testing SQL injection protection:
  > for (attack in sql_attacks) {
  +   display <- if (nchar(attack) > 40) paste0(substr(attack, 1, 40), "...") else attack
  +   cat("    ", display, "... ")
  +   tryCatch({
  +     result <- cie10_sql(attack)
  +     cat("VULNERABILITY! Query executed!\n")
  +     errors[[paste0("sql_injection_", substr(attack, 1, 20))]] <<- "Query should have been blocked"
  +   }, error = function(e) {
  +     cat("Blocked OK\n")
  +   })
  + }
       DROP TABLE cie10 ... Blocked OK
       DELETE FROM cie10 ... Blocked OK
       UPDATE cie10 SET codigo = 'X' ... Blocked OK
       INSERT INTO cie10 VALUES ('X', 'X') ... Blocked OK
       SELECT * FROM cie10; DROP TABLE cie10 ... Blocked OK
  > 
  > # -----------------------------------------------------------------------------
  > # 6. VERIFICACIÓN DE DOCUMENTACIÓN
  > # -----------------------------------------------------------------------------
  > cat("\n6. VERIFICACIÓN DE DOCUMENTACIÓN\n")
  
  6. VERIFICACIÓN DE DOCUMENTACIÓN
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > exported_fns <- c(
  +   "cie_lookup", "cie_search", "cie_normalizar", "cie_expand",
  + 
  +   "cie_validate_vector", "cie_comorbid", "cie_map_comorbid",
  +   "cie10_sql", "cie10_clear_cache", "cie11_search",
  +   "cie_table", "cie_siglas", "cie_guia_busqueda", "generar_cie10_cl"
  + )
  > 
  > for (fn in exported_fns) {
  +   cat("  Checking docs for:", fn, "... ")
  +   tryCatch({
  +     help_file <- help(fn, package = "ciecl")
  +     if (length(help_file) > 0) {
  +       cat("OK\n")
  +     } else {
  +       cat("MISSING\n")
  +       errors[[paste0("doc_", fn)]] <<- "Documentation missing"
  +     }
  +   }, error = function(e) {
  +     cat("ERROR:", conditionMessage(e), "\n")
  +     errors[[paste0("doc_", fn)]] <<- conditionMessage(e)
  +   })
  + }
    Checking docs for: cie_lookup ... OK
    Checking docs for: cie_search ... OK
    Checking docs for: cie_normalizar ... OK
    Checking docs for: cie_expand ... OK
    Checking docs for: cie_validate_vector ... OK
    Checking docs for: cie_comorbid ... OK
    Checking docs for: cie_map_comorbid ... OK
    Checking docs for: cie10_sql ... OK
    Checking docs for: cie10_clear_cache ... OK
    Checking docs for: cie11_search ... OK
    Checking docs for: cie_table ... OK
    Checking docs for: cie_siglas ... OK
    Checking docs for: cie_guia_busqueda ... OK
    Checking docs for: generar_cie10_cl ... OK
  > 
  > # -----------------------------------------------------------------------------
  > # 7. PRUEBAS DE RENDIMIENTO
  > # -----------------------------------------------------------------------------
  > cat("\n7. PRUEBAS DE RENDIMIENTO\n")
  
  7. PRUEBAS DE RENDIMIENTO
  > cat(paste(rep("-", 60), collapse = ""), "\n")
  ------------------------------------------------------------ 
  > 
  > cat("  cie_normalizar (10000 codes)... ")
    cie_normalizar (10000 codes)... > t1 <- system.time({
  +   result <- cie_normalizar(rep(c("E11.0", "i10", "J44 0", "a00"), 2500))
  + })
  > cat(sprintf("%.2fs\n", t1["elapsed"]))
  3.20s
  > 
  > cat("  cie_lookup (100 codes)... ")
    cie_lookup (100 codes)... > t2 <- system.time({
  +   result <- suppressMessages(cie_lookup(rep("E11.0", 100)))
  + })
  > cat(sprintf("%.2fs\n", t2["elapsed"]))
  0.02s
  > 
  > cat("  cie_search (single term)... ")
    cie_search (single term)... > t3 <- system.time({
  +   result <- suppressMessages(cie_search("diabetes", max_results = 50))
  + })
  Error: no such table: cie10_fts
  Timing stopped at: 0 0 0
  Execution halted
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes ... OK
* checking re-building of vignette outputs ... OK
* checking PDF version of manual ... [15s] OK
* checking HTML version of manual ... OK
* DONE
Status: 2 ERRORs, 1 NOTE