update test checking src and dest are provided

diff --git a/bin/generate_md_episodes.R b/bin/generate_md_episodes.R
index 60d65e970be608b571e7a47e74e966f6aee7dd2a..2f4e1f93e063fa5789ce0a3b45a5092b13f85fa3 100644 (file)
--- a/bin/generate_md_episodes.R
+++ b/bin/generate_md_episodes.R
@@ -26,7 +26,7 @@ generate_md_episodes <- function() {
 
     ## get the Rmd file to process from the command line, and generate the path for their respective outputs
     args  <- commandArgs(trailingOnly = TRUE)
-    if (length(args) != 2){
+    if (!identical(length(args), 2L)) {
       stop("input and output file must be passed to the script")
     }