print file info

PolMine · Feb 18, 2024 · 4a8cfd5 · 4a8cfd5
1 parent 1d6e3a2
commit 4a8cfd5
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/cwb.R b/R/cwb.R
@@ -137,6 +137,7 @@ cwb_huffcode <- function(corpus, p_attribute, registry = Sys.getenv("CORPUS_REGI
     } else {
       message("could not delete redundant file: ", fname)
       print(list.files(data_dir))
+      print(file.info(fname))
     }
   }
 
@@ -181,6 +182,7 @@ cwb_compress_rdx <- function(corpus, p_attribute, registry = Sys.getenv("CORPUS_
     } else {
       message("could not delete redundant file: ", rev_file)
       print(list.files(data_dir))
+      print(file.info(rev_file))
     }
 
     rdx_file <- path(data_dir, sprintf("%s.corpus.rdx", p_attribute))
@@ -191,6 +193,7 @@ cwb_compress_rdx <- function(corpus, p_attribute, registry = Sys.getenv("CORPUS_
     } else {
       message("could not delete redundant file: ", rdx_file)
       print(list.files(data_dir))
+      print(file.info(rdx_file))
     }
   }