R/query.R

In tpemartin/econWeb:

#' Generate Query instance for Q&A
#'
#' @return a list
#' @export
Query <- function(){
  q <- list()
  q$css_selectors <- generate_browseURL("https://www.w3schools.com/css/css_selectors.asp")
  q$html_tag <- generate_browseURL("https://developer.mozilla.org/en-US/docs/Web/HTML/Element")

  return(q)
}

generate_browseURL <- function(url){
  function(){
    browseURL(url)
  }
}