R/fun_progs_list.R

In Ingenuity-Inc/artlookR: Work with artlook data

#### basic org data ####

fun_progs_list <- function(comm_name){
  
  fact_years <- meta_years(comm_name)
  
  output <- tbl(myconn, in_schema(comm_name, "programs")) %>% 
    select(school_year_id,
           program_id = "id",
           organization_id, 
           prog_name = "name") %>% 
    collect %>% 
    left_join(fun_orgs_list(comm_name) %>% 
                filter(approval_status == "approved",
                       is_archived == "approved") %>% 
                select(-approval_status,
                       -is_archived), 
              by = c("school_year_id", "organization_id")) %>% 
    select(program_id,
           prog_name,
           organization_id,
           org_name,
           everything()) %>% 
    relocate(any_of(ends_with("_id")), .after = last_col()) %>% 
    arrange(school_year_id, 
            organization_id,
            program_id) 
  
  output
  
}