R/widget-proposal-office.R

In cwolfsonseeley/discoveryengine: A CADS Prospecting Tool

#' Find proposals assigned to a given unit
#'
#' @param ... Office code(s)
#' @param include_inactive whether inactive assignments/proposals should be included
#'
#' @export
proposal_office <- function(..., include_inactive = TRUE) {
    reroute(proposal_office_(prep_dots(...), include_inactive = include_inactive))
}

proposal_office_ <- function(offices, include_inactive = TRUE) {
    props <- proposal_widget(offices = offices, include_inactive = include_inactive)
    converter_builder(
        props, table = "f_assignment_mv",
        from = "proposal_id", to = "assignment_id"
    )
}