Zelig removed from CRAN again

[Nilesh Patra]

Hi @tercer

Thanks for your work on this package. However it looks like Zelig has been removed from CRAN and it is also failing a test as:

== Failed tests ================================================================
-- Error (test-interface.R:74:5): REQUIRE TEST zelig_qi_to_df multinomial outcome --
Error in `if (mcmc.method == "RWM") {
    auto.Scythe.call(output.object = "posterior", cc.fun.name = "MCMCmnlMH", 
        sample.nonconst = sample, Y = Y, X = X, burnin = as.integer(burnin), 
        mcmc = as.integer(mcmc), thin = as.integer(thin), tune = tune, 
        lecuyer = as.integer(lecuyer), seedarray = as.integer(seed.array), 
        lecuyerstream = as.integer(lecuyer.stream), verbose = as.integer(verbose), 
        betastart = beta.start, betamode = beta.mode, b0 = b0, 
        B0 = B0, V = V, RW = as.integer(1), tdf = as.double(tdf))
    output <- form.mcmc.object(posterior, names = xnames, title = "MCMCmnl Posterior Sample")
} else if (mcmc.method == "IndMH") {
    auto.Scythe.call(output.object = "posterior", cc.fun.name = "MCMCmnlMH", 
        sample.nonconst = sample, Y = Y, X = X, burnin = as.integer(burnin), 
        mcmc = as.integer(mcmc), thin = as.integer(thin), tune = tune, 
        lecuyer = as.integer(lecuyer), seedarray = as.integer(seed.array), 
        lecuyerstream = as.integer(lecuyer.stream), verbose = as.integer(verbose), 
        betastart = beta.start, betamode = beta.mode, b0 = b0, 
        B0 = B0, V = V, RW = as.integer(0), tdf = as.double(tdf))
    output <- form.mcmc.object(posterior, names = xnames, title = "MCMCmnl Posterior Sample")
} else if (mcmc.method == "slice") {
    auto.Scythe.call(output.object = "posterior", cc.fun.name = "MCMCmnlslice", 
        sample.nonconst = sample, Y = Y, X = X, burnin = as.integer(burnin), 
        mcmc = as.integer(mcmc), thin = as.integer(thin), lecuyer = as.integer(lecuyer), 
        seedarray = as.integer(seed.array), lecuyerstream = as.integer(lecuyer.stream), 
        verbose = as.integer(verbose), betastart = beta.start, 
        b0 = b0, B0 = B0, V = V)
    output <- form.mcmc.object(posterior, names = xnames, title = "MCMCmnl Posterior Sample")
} else {
    cat("\n\nmcmc.method not equal to one of 'RWM', 'IndMH', or 'slice'.\n")
    stop("Please respecifify and call MCMCmnl() again.\n")
}`: the condition has length > 1
Backtrace:
     x
  1. +-... %>% zelig_qi_to_df() at test-interface.R:74:4
  2. +-Zelig::zelig_qi_to_df(.)
  3. | \-Zelig::is_zelig(obj)
  4. +-Zelig::sim(.)
  5. | \-Zelig::is_zelig(obj)
  6. +-Zelig::setx(.)
  7. | \-Zelig::is_zelig(obj, fail = FALSE)
  8. +-Zelig::zelig(...)
  9. | \-z5$zelig(formula = formula, data = data, ..., by = by)
 10. |   \-Zelig callSuper(formula = formula, data = data, ..., by = by, bootstrap = FALSE)
 11. |     \-.self$data %>% group_by_(.self$by) %>% ...
 12. +-dplyr::do(., z.out = eval(fn2(.self$model.call, quote(as.data.frame(.)))))
 13. +-dplyr:::do.grouped_df(., z.out = eval(fn2(.self$model.call, quote(as.data.frame(.)))))
 14. | \-rlang::eval_tidy(args[[j]], mask)
 15. \-base::eval(fn2(.self$model.call, quote(as.data.frame(.))))
 16.   \-base::eval(fn2(.self$model.call, quote(as.data.frame(.))))
 17.     \-MCMCpack::MCMCmnl(...)

Would it be possible to fix this sometime soon?