R/syndromes.R

In iobis/rhaedat: R client for HAEDAT

#' Fetch syndromes
#'
#' @export
syndromes <- function() {
  res <- GET("http://haedat.iode.org/api/syndromes", user_agent("robis - https://github.com/iobis/rhaedat"))
  stop_for_status(res)
  text <- content(res, "text", encoding = "UTF-8")
  df <- fromJSON(text, simplifyVector = TRUE)
  return(df)
}

#' Translate syndrome name to toxin
#'
#' @export
to_toxin <- function(syndrome) {
  if (syndrome == "PSP") return("PST")
  else if (syndrome == "ASP") return("AST")
  else if (syndrome == "DSP") return("DST")
  else if (syndrome == "AZP") return("AZA")
  else return(syndrome)  
}