Add cleanup to AppendNimble

Author: bbimber

singlecell/resources/chunks/AppendNimble.R

@@ -6,6 +6,11 @@ if (!file.exists('/homeDir/.netrc')) {
 invisible(Rlabkey::labkey.setCurlOptions(NETRC_FILE = '/homeDir/.netrc'))
 Rdiscvr::SetLabKeyDefaults(baseUrl = serverBaseUrl, defaultFolder = defaultLabKeyFolder)
 
+# NOTE: this file is created by DownloadAndAppendNimble if there was an error. It might exist if a job failed and then was restarted
+if (file.exists('debug.nimble.txt')) {
+  unlink('debug.nimble.txt')
+}
+
 for (datasetId in names(seuratObjects)) {
   printName(datasetId)
   seuratObj <- readSeuratRDS(seuratObjects[[datasetId]])