R/additional_functions.R

In adrowe1/drugHunteR: Drug Hunter functions

# Additional functions


# without function -------------------
#' Without
#'
#' Handy function to remove existing items from a vector - borrowed from the
#' documentation for  \code{\link{match}}
#' @param x vector of values
#' @param y vector of values to be removed from \code{x}
#' @return vector of remaining values
#'
#'
#' @examples
#' 1:8 %w/o% c(1,4)
#'
#' # character vectors
#' letters[1:8] %w/o% letters[c(1,4)]
#' @export
# handy without function
"%w/o%" <- function(x, y) x[!x %in% y]





# ChEBI link function -----------------
#' ChEBI link
#'
#' Create link to CAS name search in ChEBI
#'
#' @param cas CAS reference ID for drug
#' @param name Molecule name
#'
#' @return Link string which can be put into a datatable
#' @export
#'
#' @examples
#' createChebiLink("drugID", "drugname")
#'
createChebiLink <- function(cas, name) {
  sprintf('<a href="http://www.ebi.ac.uk/chebi/advancedSearchFT.do?searchString=%s" target="_blank" class="btn btn-primary">%s</a>',cas, name)
}




# Fix well names where inconsistent ----------


#' Fix well names
#'
#' Pad column numbers in well names so A1 becomes A01
#' but A16 stays A16
#'
#' @param wellString
#'
#' @return
#' @export
#' @import stringr magrittr
#'
#' @examples
fixWells <- function(wellString){
  row <- str_replace_all(wellString, "[0-9]", "")
  col <- str_replace_all(wellString, "[A-Z]", "") %>% str_pad(2, "left", "0")

  paste(row, col, sep="")

}