Fix R scripts

pkiraly · Dec 11, 2024 · 50ce078 · 50ce078
1 parent 962c4bb
commit 50ce078
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 4 deletions.
diff --git a/common-script b/common-script
@@ -139,10 +139,13 @@ do_shelf_ready_completeness() {
     --outputDir ${OUTPUT_DIR}/ \
     --trimId ${MARC_DIR}/${MASK} 2> ${LOG_DIR}/shelf-ready-completeness.log
 
-  Rscript scripts/shelf-ready/shelf-ready-histogram.R ${OUTPUT_DIR} &>> ${LOG_DIR}/shelf-ready-completeness.log
-
-  # for large files
-  # php scripts/shelf-ready-histogram.php ${OUTPUT_DIR} &>> ${LOG_DIR}/shelf-ready-completeness.log
+  # TODO: check if the file size is larger then 1G
+  if [[ "$TYPE_PARAMS" =~ --emptyLargeCollectors ]]; then
+    # for large files
+    php scripts/shelf-ready/shelf-ready-histogram.php ${OUTPUT_DIR} &>> ${LOG_DIR}/shelf-ready-completeness.log
+  else
+    Rscript scripts/shelf-ready/shelf-ready-histogram.R ${OUTPUT_DIR} &>> ${LOG_DIR}/shelf-ready-completeness.log
+  fi
 }
 
 do_bl_classification() {

diff --git a/scripts/marc-history/marc-history-grouped.R b/scripts/marc-history/marc-history-grouped.R
@@ -141,6 +141,9 @@ plot <- filtered %>%
 
 img_dir <- sprintf('%s/img', output_dir)
 if (!dir.exists(img_dir)) {
+  if (file.exists(img_dir) {
+    file.remove(img_dir)
+  }
   dir.create(img_dir)
 }
 

diff --git a/scripts/pareto/frequency-range-per-types.R b/scripts/pareto/frequency-range-per-types.R
@@ -191,6 +191,9 @@ create_all_pictures <- function(dir, field, file_name) {
     print(paste('saving to directory ', img_dir))
 
     if (!dir.exists(img_dir)) {
+      if (file.exists(img_dir) {
+        file.remove(img_dir)
+      }
       print(paste('creating directory ', img_dir))
       dir.create(img_dir)
     }