Browse Source

short circut

tags/v0.5.2
boB Rudis 4 years ago
parent
commit
e92f27c3ec
1 changed files with 2 additions and 2 deletions
  1. +2
    -2
      R/get_flu_data.r

+ 2
- 2
R/get_flu_data.r View File

@ -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...")


Loading…
Cancel
Save