R/kmersDS.R

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

kmersDS <- 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)
  
  kmers = getKmers(ret, 10, .col = "aa")
  kmersProfie = kmer_profile(kmers, "prob")

  return (kmersProfie)
}