Remove superfluous dimension drop

kkbrum · web-flow · commit d2d97e2ff76f · 2021-11-10T12:29:59.000-05:00
diff --git a/R/verify_optimize_controls_inputs.R b/R/verify_optimize_controls_inputs.R
@@ -171,7 +171,7 @@ process_qs <- function(ratio, q_s, n_s, treated, k, group, st_vals, stratios) {
     if (is.null(ratio)) {
       ratio <- sapply(1:nrow(stratios), function(i) min(1, min(stratios[i, ])))
     }
-    q_s <- round(ratio %*% t(n_s[group == treated, , drop = FALSE]))
+    q_s <- round(ratio %*% t(n_s[group == treated, ]))
     if (any(q_s > n_s)) {
       stop("The ratio you specified is not feasible.
             Please supply `q_s` instead of `ratio` or lower the `ratio` input.",

Original file line number	Diff line number	Diff line change
`@@ -171,7 +171,7 @@ process_qs <- function(ratio, q_s, n_s, treated, k, group, st_vals, stratios) {`
`171`	`171`	`if (is.null(ratio)) {`
`172`	`172`	`ratio <- sapply(1:nrow(stratios), function(i) min(1, min(stratios[i, ])))`
`173`	`173`	`}`
`174`		`- q_s <- round(ratio %*% t(n_s[group == treated, , drop = FALSE]))`
	`174`	`+ q_s <- round(ratio %*% t(n_s[group == treated, ]))`
`175`	`175`	`if (any(q_s > n_s)) {`
`176`	`176`	`stop("The ratio you specified is not feasible.`
`177`	`177`	Please supply `q_s` instead of `ratio` or lower the `ratio` input.",