#' Information on screen/browser resolutions
#'
#' @template all
#' @export
#' @inheritParams gs_traffic
#' @param ... Curl debugging options passed in to \code{\link[httr]{GET}}
#' @examples \dontrun{
#' gs_reso(id='4efd83a6f5a1f5158a000004')
#'
#' # Get list of gauge's, then pass in one of the ids
#' out <- gs_gauge_list()
#' gs_reso(id=out$brief[1,'id'])
#' }
gs_reso <- function(id, date=NULL, key=NULL, keyname='GaugesKey', ...)
{
if(is.null(key))
key <- getOption(keyname, stop("you need an API key for Gaug.es data"))
url <- sprintf('%s/gauges/%s/resolutions', gsbase(), id)
args <- compact(list(date=date))
out <- gs_GET(url, key, keyname, args, ...)
bh <- do.call(rbind.fill, lapply(out$browser_heights, function(x) data.frame(x,stringsAsFactors=FALSE)))
bw <- do.call(rbind.fill, lapply(out$browser_widths, function(x) data.frame(x,stringsAsFactors=FALSE)))
sw <- do.call(rbind.fill, lapply(out$screen_widths, function(x) data.frame(x,stringsAsFactors=FALSE)))
return( list(browser_height = bh, browser_width = bw, screen_width = sw) )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.