R/detect_plastic.R

In jaleisehall/rainbowtrout: What Rainbowtrout Package Does

#' @title detect_plastic function
#'
#' @param C - Carbon atoms present in the material
#' @param H - Hydrogen atoms present in the material
#' @param O - Oxygen atoms present in the material
#' @param Cl - Chlorine atoms present in the material
#'
#' @return plastic type
#' @export
#' @description this function can be used to detect the type of plastic a given plastic should be characterized as based on the materials C, H, O, and Cl content. Various combinations of elemental content can result in a plastic type of PETE, PS, PP, PE, PVC, or other.
#'
#' @examples detect_plastic(10,8,4,0) returns: [1] "PETE"

detect_plastic <- function(C, H, O, Cl) {

  # error checking
  C = ifelse(
    C < 0,
    return("Elements atom content must be a value of 0 or greater than 0. Check for NA, negative, or non-numeric values."),
    C
  )

  H = ifelse(
    H < 0,
    return("Elements atom content must be a value of 0 or greater than 0. Check for NA, negative, or non-numeric values."),
    H
  )

  O = ifelse(
    O < 0,
    return("Elements atom content must be a value of 0 or greater than 0. Check for NA, negative, or non-numeric values."),
    O
  )

  Cl = ifelse(
    Cl < 0,
    return("Elements atom content must be a value of 0 or greater than 0. Check for NA, negative, or non-numeric values."),
    Cl
  )

  # case_when loop
  detect_plastic = case_when(
    C == 10 & H == 8 & O == 4 & Cl == 0 ~ "PETE",
    C == 8 & H == 8 & O == 0 & Cl == 0 ~ "PS",
    C == 3 & H == 6 & O == 0 & Cl == 0 ~ "PP",
    C == 2 & H == 4 & O == 0 & Cl == 0 ~ "PE",
    C == 2 & H == 3 & O == 0 & Cl == 1 ~ "PVC",
    TRUE ~ "other"
  )
}