R/repExploreDS.R

In Jabst/dsImmunarch: DataSHIELD server side wrapper for Immunarch functions

repExploreDS <- function (dataframe) {
  library(dsBase)
  
  # check if the input vector is valid (i.e. meets DataSHIELD privacy criteria)
  check <- isValidDS(dataframe)
  
  # return missing value if the input vector is not valid
  if (!check) {
    return (NA)
  }
  
  library(immunarch)
  ret <- parse_mixcr(dataframe)
  
  explore_len = repExplore(ret, .method = "len")
  
  return (explore_len)
}