can't simulate for single day or single trajectory

[annecori]

i <- incidence(Sys.Date())
si <- c(0.2, 0.5, 0.2, 0.1)
R0 <- 2
### this works: project(x = i,
+               R = R0,
+               si = si,
+               n_sim = 2,  # doesn't work with 1 in project function
+               R_fix_within = TRUE,
+               n_days = 2, # doing 2 days as project function currently not working with one day - will only use first day though
+               model = "poisson")

/// Incidence projections //

  // class: projections, matrix
  // 2 dates (rows); 2 simulations (columns)

 // first rows/columns:
           [,1] [,2]
2020-01-24    2    0
2020-01-25    2    0

 // dates:
[1] "2020-01-24" "2020-01-25"

### this does NOT work:

> project(x = i,
+               R = R0,
+               si = si,
+               n_sim = 1,  # doesn't work with 1 in project function
+               R_fix_within = TRUE,
+               n_days = 2, # doing 2 days as project function currently not working with one day - will only use first day though
+               model = "poisson")
Error in 1:nrow(out) : argument of length 0


### this does NOT work:

> project(x = i,
+               R = R0,
+               si = si,
+               n_sim = 2,  # doesn't work with 1 in project function
+               R_fix_within = TRUE,
+               n_days = 1, # doing 2 days as project function currently not working with one day - will only use first day though
+               model = "poisson")
Error in 1:nrow(out) : argument of length 0