Skip to content

Commit e4fff40

Browse files
authored
Merge pull request #86 from boshek/search-table
defaults to viewing search page
2 parents 1e13f99 + 73130ba commit e4fff40

2 files changed

Lines changed: 14 additions & 6 deletions

File tree

R/cansim.R

Lines changed: 11 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -657,7 +657,8 @@ generate_table_metadata <- function(){
657657
#'
658658
#' Opens CANSIM table on Statistics Canada's website using default browser. This may be useful for getting further info on CANSIM table and survey methods.
659659
#'
660-
#' @param cansimTableNumber CANSIM or NDM table number
660+
#' @param cansimTableNumber CANSIM or NDM table number. If no number is provided, the vector search
661+
#' page on the Statistic Canada website will be opened.
661662
#'
662663
#' @return none
663664
#'
@@ -666,10 +667,16 @@ generate_table_metadata <- function(){
666667
#' view_cansim_webpage("34-10-0013")
667668
#' }
668669
#' @export
669-
view_cansim_webpage <- function(cansimTableNumber){
670+
view_cansim_webpage <- function(cansimTableNumber = NULL){
670671
browser <- getOption("browser")
671-
cansimTableNumber <- paste0(gsub("-","",cleaned_ndm_table_number(cansimTableNumber)),"01")
672-
url <- paste0("https://www150.statcan.gc.ca/t1/tbl1/en/tv.action?pid=",gsub("-","",cansimTableNumber))
672+
673+
if (is.null(cansimTableNumber)) {
674+
url <- 'https://www150.statcan.gc.ca/t1/tbl1/en/sbv.action#tables'
675+
} else {
676+
cansimTableNumber <- paste0(gsub("-","",cleaned_ndm_table_number(cansimTableNumber)),"01")
677+
url <- paste0("https://www150.statcan.gc.ca/t1/tbl1/en/tv.action?pid=",gsub("-","",cansimTableNumber))
678+
}
679+
673680
utils::browseURL(url,browser)
674681
}
675682

man/view_cansim_webpage.Rd

Lines changed: 3 additions & 2 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)