updated number and test

RodrigoZepeda · Jul 19, 2024 · c2e7c06 · c2e7c06
1 parent 60553e2
commit c2e7c06
Show file tree

Hide file tree

Showing 54 changed files with 102 additions and 97 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: WHOicd
 Title: Retrieve data from the World Health Organization (WHO) International Classification of Diseases (ICD) API version 2
-Version: 0.4.0
+Version: 0.4.1
 Authors@R: 
     person("Rodrigo", "Zepeda-Tello", , "rzepeda17@gmail.com", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0003-4471-5270"))

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# WHOicd 0.4.1
+
+* Fixed minor errors on the website.
+
 # WHOicd 0.4.0
 
 * `doris` now allows for multiple languages beyond English

diff --git a/R/utils.R b/R/utils.R
@@ -388,15 +388,24 @@ code_place <- function(input) {
 #'
 #' Function that retrieves a list of function
 #'
-#' @param lname Name of the list entry to recover as a vector
-#' @return A
+#' @param list_val List to extract the entry `val` from
+#' @param val Name of the list entry to recover as a vector
+#' @return The entry `val` from `list_val` as vector
 #' @examples
-#' val <- "title"
-#' search_results <- icd11_search(token, "HIV stage 4")
-#' search_results |> retrieve("title")
+#' if (exists("CLIENT_ID") & exists("CLIENT_SECRET")) {
+#'   # Generated token
+#'   token <- get_token(CLIENT_ID, CLIENT_SECRET)
+#'   val <- "title"
+#'   search_results <- icd11_search(token, "HIV stage 4")
+#'   search_results |> retrieve("title")
+#' }
 #' @export
 retrieve <- function(list_val, val){
-  vec <- unlist(sapply(list_val$destinationEntities, function(entity) entity[val]))
+  if (val %in% names(list_val)){
+    vec <- unlist(list_val[val])
+  } else {
+    vec <- unlist(sapply(list_val$destinationEntities, function(entity) entity[val]))
+  }
   names(vec) <- NULL
   return(vec)
 }

diff --git a/README.Rmd b/README.Rmd
@@ -97,7 +97,7 @@ Another function of importance is `autocode` which reads plain-text diagnostic t
 code_results <- icd11_autocode(token, "Patient with cerebrovascular accident")
 
 #Recover the code that matched
-code_results |> retrieve("title")
+code_results |> retrieve("theCode")
 ```
 
 

diff --git a/README.md b/README.md
@@ -133,8 +133,8 @@ diagnostic text and returns the best matching code either in *MMS* or
 code_results <- icd11_autocode(token, "Patient with cerebrovascular accident")
 
 #Recover the code that matched
-code_results |> retrieve("title")
-#> NULL
+code_results |> retrieve("theCode")
+#> [1] "8B20"
 ```
 
 ## ICD-10 examples

diff --git a/docs/404.html b/docs/404.html
diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html
diff --git a/docs/LICENSE.html b/docs/LICENSE.html
diff --git a/docs/articles/Generating-your-token.html b/docs/articles/Generating-your-token.html
diff --git a/docs/articles/ICD-10.html b/docs/articles/ICD-10.html
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -4,4 +4,4 @@ pkgdown_sha: ~
 articles:
   articles/Generating-your-token: Generating-your-token.html
   articles/ICD-10: ICD-10.html
-last_built: 2024-07-19T18:37Z
+last_built: 2024-07-19T18:54Z
diff --git a/docs/reference/autocode.html b/docs/reference/autocode.html
diff --git a/docs/reference/check_names.html b/docs/reference/check_names.html
diff --git a/docs/reference/check_token_expiration_time.html b/docs/reference/check_token_expiration_time.html
diff --git a/docs/reference/code_maternal_death_time_from_pregnancy.html b/docs/reference/code_maternal_death_time_from_pregnancy.html
diff --git a/docs/reference/code_place.html b/docs/reference/code_place.html
diff --git a/docs/reference/codify_ans.html b/docs/reference/codify_ans.html
diff --git a/docs/reference/codify_manner_of_death.html b/docs/reference/codify_manner_of_death.html
diff --git a/docs/reference/codify_sex.html b/docs/reference/codify_sex.html
diff --git a/docs/reference/doris.html b/docs/reference/doris.html
diff --git a/docs/reference/dot-icd10_search_recursive.html b/docs/reference/dot-icd10_search_recursive.html
diff --git a/docs/reference/get_token.html b/docs/reference/get_token.html
diff --git a/docs/reference/icd10_blocks.html b/docs/reference/icd10_blocks.html
diff --git a/docs/reference/icd10_chapters.html b/docs/reference/icd10_chapters.html
diff --git a/docs/reference/icd10_code_search_release.html b/docs/reference/icd10_code_search_release.html
diff --git a/docs/reference/icd10_codes.html b/docs/reference/icd10_codes.html
diff --git a/docs/reference/icd10_name_children.html b/docs/reference/icd10_name_children.html
diff --git a/docs/reference/icd10_parent.html b/docs/reference/icd10_parent.html
diff --git a/docs/reference/icd10_release_info.html b/docs/reference/icd10_release_info.html
diff --git a/docs/reference/icd10_releases.html b/docs/reference/icd10_releases.html
diff --git a/docs/reference/icd10_request_children.html b/docs/reference/icd10_request_children.html
diff --git a/docs/reference/icd10_search.html b/docs/reference/icd10_search.html
diff --git a/docs/reference/icd10_title.html b/docs/reference/icd10_title.html
diff --git a/docs/reference/icd10_validate_code.html b/docs/reference/icd10_validate_code.html