R/removeLLfile.R

In JARS3N/adminKraken: adminKraken

removeLLFile<-function(file){
  require(RMySQL)
  my_db <- con_mysql()
  # GEt Id of file to remove
  nm <-paste0("select ID from kraken.instqcllmeta where file=",shQuote(file),";")
  findID <-dbSendQuery(my_db,nm)
  ID <-dbFetch(findID)
  dbClearResult(findID)
  if (length(ID$ID)>0){
    data<-paste0("delete from kraken.instqclldata where MetaID=",ID,";")
    DelData<-dbSendQuery(my_db,data)
    dbClearResult(DelData)
    Meta<-paste0("delete from kraken.instqcllmeta where ID=",ID,";")
    DelMeta<-dbSendQuery(my_db,Meta)
    dbClearResult(DelMeta)
    message(paste0(file," removed"))
  }else{
    message(paste0(file," not present in the Database"))
  }
  dbDisconnect(my_db)
  rm(list=ls())
  gc()
}