R/retrievedata.R

In freechelor/defects:

df_af_2017 <- read.xlsx("C:/Users/Jason/Documents/#defective/RMA AirFryer_06202019.xlsx", sheet=1, startRow=1, colNames=TRUE)
df_af_2018 <- read.xlsx("C:/Users/Jason/Documents/#defective/RMA AirFryer_06202019.xlsx", sheet=2, startRow=1, colNames=TRUE)
df_af_2019 <- read.xlsx("C:/Users/Jason/Documents/#defective/RMA AirFryer_06202019.xlsx", sheet=3, startRow=1, colNames=TRUE)
res <- rbind(df_af_2017[,1:6], df_af_2018[,1:6], df_af_2019[,1:6]) # %>% group_by(COMPANY, DATE, `MODEL.#`, TEST.RESULT) %>% summarise(count=n())

#a <- res %>% filter(res$`SERIAL.#`=="JW1701 004734A")

res <- res %>% filter(!is.na(res$TEST.RESULT))
vector <- character()
for(e in res$TEST.RESULT) {
  if(unlist(gregexpr('(', fixed=TRUE, e))[1]!=-1) {
    vector <- c(vector, unlist(gregexpr('(', fixed=TRUE, e))[1])
  } else {
    vector <- c(vector, e)
  }
}

res$TEST.RESULT <- vector

write.xlsx(res, "res.xlsx")


res <- read.xlsx("res_mod.xlsx", sheet=1, startRow=1, colNames=TRUE)