fixing order of warnings

Author: Leo Bastos

R/nowcasting_inla.R

@@ -160,6 +160,20 @@ nowcasting_inla <- function(dataset,
       data.by.week<-data.by.week
       message("Returning 'data.by.week'")
     }
+
+    if(missing(trajectories) | trajectories == FALSE){
+      warning("Not returning trajectories")
+    }else{
+      trajectories = TRUE
+      message("Trajectories returned")
+
+      if(!missing(age_col) & !missing(zero_inflated)){
+        zero_inflated<-FALSE
+        warning("'age_col' parsed, 'zero_inflated' ignored!")
+      }
+    }
+
+
     # ## Missing return.age warning
     # if(missing(return.age)){
     #   return.age <- TRUE
@@ -169,27 +183,17 @@ nowcasting_inla <- function(dataset,
     if(missing(age_col)){
       warning("'age_col' missing, nowcasting with unstructured model")
       ## Missing bins_age column warning
+    }else{
+      message("'age_col' inputed, nowcasting with structured model")
+
       if(missing(bins_age)){
         bins_age <- "SI-PNI"
         warning("Using 'SI-PNI' age bins!")
       }else{
         bins_age<-bins_age
         message("Using age bins inputed")
       }
-    }else{
-      message("'age_col' inputed, nowcasting with structured model")
-    }
 
-    if(missing(trajectories) | trajectories == FALSE){
-      warning("Not returning trajectories")
-    }else{
-      trajectories = TRUE
-      message("Trajectories returned")
-
-      if(!missing(age_col) & !missing(zero_inflated)){
-        zero_inflated<-FALSE
-        warning("'age_col' parsed, 'zero_inflated' ignored!")
-      }
     }
   }
   # else{