R/rSynapseHelpers.R

In kdaily/rSynapseHelpers: R Synapse Helpers

#' A better query, cleans the column names
#' @export
#' @param q A Synapse query
betterQuery <- function(q, ...) {
  qres <- synapseClient::synQuery(q, blockSize=100)
  res <- qres$collectAll()
  colnames(res) <- gsub(".*\\.(.*)", "\\1", colnames(res))
  res
}

#' Find records with missing data - blank, empty string, or NA
#' @export
#' @param res A data frame
#' @param cols2check vector of column names
findBlankRecords <- function(res, cols2check, ...) {
  badrecs <- apply(res[, cols2check], 1, function(x) any(is.na(x)) | any(x == "") | any(x == " "))
  res[badrecs, ]  
}