R/read_prcalc.R

In JaehyunSong/PRcalc: A Proportional Representation Calculator

#' @rdname as_prcalc
#'
#' @export
read_prcalc <- function(x,
                        l1,
                        l2   = NULL,
                        p,
                        q    = NULL,
                        type = c("nested", "span"),
                        ...) {

  result <- NULL

  type <- match.arg(type)

  temp_df <- read.csv(x)

  result <- as_prcalc(temp_df,
                      l1 = l1,
                      l2 = l2,
                      p  = p,
                      q  = q,
                      type = type)


  result
}