inst/scripts/inputs_debugging.R

In MSUDenver-Stats-Science-Club/ColoradoAwardedDegrees: Colorado Awarded Degrees

## Load App Data ----
app_data <<- get_data()

## Reactives ----
rv <- list()
rv$year <- 2001
rv$university <- "Adams State University"

## Code to Test ----
unis <- app_data |>
  dplyr::filter(year == rv$year) |>
  dplyr::pull(institutionname) |>
  unique() |>
  sort()

program <- app_data |>
  dplyr::filter(
    year == rv$year,
    institutionname %in% rv$university
  ) |>
  dplyr::pull(programname) |>
  unique() |>
  sort()

## Reactive Data ----
ad <- app_data |>
  dplyr::filter(
    year == rv$year
  )

ad <- ad |>
  dplyr::filter(
    institutionname %in% rv$university
  )

ad <- ad |>
  dplyr::filter(
    programname %in% rv$program
  )