R/experimental.R

In Aehmlo/lucy: Plate Data Analysis Utilities

#' Subset only experimental treatments
#'
#' This is almost the opposite of \code{standards}, but it excludes \code{NA}s.
#'
#' @param df The data frame to subset.
#' @param ... Additional parameters passed to \code{is.standard}.
#'
#' @return A subsetted data frame containing only nonstandard formulations.
#' @export
#' @importFrom magrittr %>%
#' @importFrom dplyr filter
#' @importFrom stats complete.cases
#'
#' @examples
#' experimental <- experimental(some.df)
experimental <- function(df, ...) {
  df[!is.standard(df),] %>% filter(complete.cases(.))
}