cansim/R/cansim_members.R at 67c9ad133c28d8a28c2d0a5b8f8fbb55f95c0a0b · mountainMath/cansim · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43


get_cansim_members <- function(cansimTableNumber, language="english",
                               latestN=NULL,
                               members=list(),
                               refresh=FALSE,
                               timeout=1000,
                        cache_path=getOption("cansim.cache_path")){

  language <- cleaned_ndm_language(language)
  cansimTableNumber <- cleaned_ndm_table_number(cansimTableNumber)
  naked_table_number <- naked_ndm_table_number(cansimTableNumber)

  base_url <- "https://www150.statcan.gc.ca/t1/tbl1/en/dtl!downloadDbLoadingData-nonTraduit.action"

  "startDate=&endDate=&csvLocale=en&selectedMembers=[[],[2,3,4],[],[],[],[1,2]]&checkedLevels=0D1,1D1,2D1,3D1,3D2,4D1"


  if (is.null(latestN)) {latestN=100000}

  cl <- get_cansim_column_list(cansimTableNumber, language=language, refresh=refresh, timeout=timeout)

  selectedMembers <- cl %>%
    arrange(as.integer(1)) %>%
    pull(1) %>%
    lapply(\(did){

    })

    members %>%
    #seq_along() %>%
    lapply(\(i,el,n){

    })

  url <- paste0(base_url,
                "?","pid=",naked_table_number,"01",
                "&","latestN=",latestN,
                "&","csvLocale=",substr(language,1,2))

  readr::read_csv()

}