```
saveRDSCustom <- function(obj,fileName){
  tryCatch({
    fileConn<-file(fileName,blocking = TRUE)
    saveRDS(obj,fileConn)
    close(fileConn)
    return(TRUE)
  }
  ,error=function(e){
  cat(e)
  return(FALSE) }
  )
}
```