R/determineAssay.R

  determineAssay<-function(X){
    rvest::xml_node(X,'FileName') %>%
      xml2::xml_text() %>%
      toupper(.) %>%
      c("Gain"=grepl("GAIN",.),
        "Ksv"=grepl("KSV",.))%>%
        {names(.[.==TRUE])}
  }
JARS3N/axml documentation built on May 7, 2019, 6:47 a.m.