R/helpers.R

In VancouvR: Access the 'City of Vancouver' Open Data API

Defines functions remove_na_cols unqoute_strings

main_cols <- c("dataset_id","title","keyword","search-term")

unqoute_strings <- function(s)gsub('^"|"$','',s)

remove_na_cols <- function(data){
    dplyr::select(data,unique(c(intersect(names(data),main_cols),names(select_if(data,function(d)sum(!is.na(d))>0)))))
}

Try the VancouvR package in your browser