values_ <- function(lim_obj,limonadeST_param,offset=NULL,count=NULL){
par <- limonadeST_param$summary()
stopifnot(!is.null(par$varid))
res <- lim_obj$extract(varid=par$varid,offset=offset,count=count)$vals
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.