From f3c81acf9ca6ab1a60e8ba52f976174f89a06ccb Mon Sep 17 00:00:00 2001 From: Lena Hersemann Date: Thu, 14 Mar 2019 11:12:26 +0100 Subject: [PATCH] fixed bug: now only files with .R extension are considered in the recent files selection --- tools/rendr/rend.R | 1 + 1 file changed, 1 insertion(+) diff --git a/tools/rendr/rend.R b/tools/rendr/rend.R index 32a00f7..384ffb4 100755 --- a/tools/rendr/rend.R +++ b/tools/rendr/rend.R @@ -71,6 +71,7 @@ script_name <- str_replace(basename(r_script), ".R", "") current_script <- paste0(".", script_name, "_", format(Sys.time(), "%Y%m%d_%H%M.R")) all_files <- file.info(list.files(".", pattern = paste0("\\.", script_name), all.files = T)) +all_files <- all_files[str_detect(rownames(all_files), ".R$"),] recent_script <- rownames(all_files)[which.max(all_files$mtime)] if (identical(recent_script, character(0))) { -- GitLab