cleanup

NAMESPACE

@@ -103,8 +103,6 @@ export(min_move_parity)
 export(muni_splits)
 export(number_by)
 export(partisan_metrics)
-export(persily)
-export(pick_a_plan)
 export(plan_distances)
 export(plan_parity)
 export(plans_diversity)
@@ -146,7 +144,6 @@ export(redist.plot.adj)
 export(redist.plot.cores)
 export(redist.plot.distr_qtys)
 export(redist.plot.hist)
-export(redist.plot.interactive)
 export(redist.plot.majmin)
 export(redist.plot.map)
 export(redist.plot.penalty)

R/redist_constr.R

@@ -622,7 +622,6 @@ add_constr_custom <- function(constr, strength, fn) {
  args <- rlang::fn_fmls(fn)
  if (length(args) != 2) cli_abort("Function must take exactly two arguments.")
 
-
  constr_env = rlang::fn_env(fn)
  # every symbol used in the function (except the 2 arguments)
  var_names = setdiff(

R/redist_smc.R

@@ -246,9 +246,12 @@ redist_smc <- function(map, nsims, counties = NULL, compactness = 1, constraints
 
  if (ncores_runs > 1) {
  `%oper%` <- `%dorng%`
- of <- ifelse(Sys.info()[['sysname']] == 'Windows',
- tempfile(pattern = paste0('smc_', substr(Sys.time(), 1, 10)), fileext = '.txt'),
- '')
+ of <- if (Sys.info()[["sysname"]] == "Windows") {
+ tempfile(pattern = paste0("smc_", substr(Sys.time(), 1, 10)), fileext = ".txt")
+ } else {
+ ""
+ }
+
  if (!silent)
  cl <- makeCluster(ncores_runs, outfile = of, methods = FALSE,
  useXDR = .Platform$endian != "little")