R/printListProp.R

In BioLockJ-Dev-Team/BioLockR: R Access to the BioLockJ-API

#' Assemble a BioLockJ list property
#'
#' @param values a vecotr of values to combine as one list property
#'
#' @return a single string representing the set of values as a comma-separated list
#' @export
#'
#' @seealso parseListProp
#'
#' @examples
#' printListProp(c("one", "two", "three"))
#' #> [1] "one, two, three"
#'
printListProp <- function( values ){
    goodInput = any(sapply(values, isReadableValue))
    if ( goodInput ){
        return(paste(values, collapse=", "))
    }else{
        return("")
    }
}