R/useragent.R

Defines functions useragent

useragent <- function(ua=NULL){
  if(is.null(ua)) {
    versions <- c(
          sugaR = as.character(utils::packageVersion("sugaR")))
    res <- list(useragent = paste0(names(versions), "/", versions, collapse = " "))
  } else res <- list(useragent = ua)
}
jeanmarielepioufle/sugaR documentation built on May 7, 2019, 11:14 a.m.