R/getCtgType.R

getCtgType<-function(Z){
    Ltr<- xml_nodes(Z,'Cartridge') %>%
      xml_node('Type') %>% xml_text()
    if (length(Ltr)==0 |Ltr== ""){
      Ltr<-getCtgTypefromInst(Z)
    }
    Ltr
  }
JARS3N/axml documentation built on May 7, 2019, 6:47 a.m.