From 56f441bd98eeb1857be5adc0ee5e59384bb83d07 Mon Sep 17 00:00:00 2001
From: Jeffrey Perkel <j_perkel@yahoo.com>
Date: Fri, 5 Jul 2019 08:34:35 -0600
Subject: [PATCH] Update line-count.R

Incorrectly counts total line numbers if only one filename provided on command line.
---
 _episodes_rmd/line-count.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/_episodes_rmd/line-count.R b/_episodes_rmd/line-count.R
index 094a8b873..193a3a3cf 100644
--- a/_episodes_rmd/line-count.R
+++ b/_episodes_rmd/line-count.R
@@ -8,12 +8,12 @@ main <- function() {
       cat(filename)
       cat(" ")
       cat(num_lines, sep = "\n")
-      if (length(args) > 1) {
-        total_lines = total_lines + num_lines
-      }
+      total_lines <- total_lines + num_lines
+    }
+    if (length(args) > 1) {
+      cat("Total ")
+      cat(total_lines, sep = "\n")
     }
-    cat("Total ")
-    cat(total_lines, sep = "\n")
   } else {
     input <- readLines(file("stdin"))
     num_lines <- length(input)