From e92f27c3ec00e5f248df2981888e77c55f0789e4 Mon Sep 17 00:00:00 2001 From: Bob Rudis Date: Mon, 2 Jan 2017 14:54:09 -0500 Subject: [PATCH] short circut --- R/get_flu_data.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/get_flu_data.r b/R/get_flu_data.r index 4cf964c..ee42343 100644 --- a/R/get_flu_data.r +++ b/R/get_flu_data.r @@ -101,8 +101,8 @@ get_flu_data <- function(region="hhs", sub_region=1:10, file_list <- file_list[[1]] - if ((nrow(file_list) == 0) & - (length(years)==1) & + if ((nrow(file_list) == 0) && + (length(years)==1) && (years == (as.numeric(format(Sys.Date(), "%Y"))-1960))) { message("Adjusting [years] to get current season...")