Nothing
.quote_store <- function(){
.last_quote <- NULL
list(
get = function() .last_quote,
set = function(value) .last_quote <<- value
)
}
.store_idx <- .quote_store()
set_last_quote <- function(value) .store_idx$set(value)
#' Get the last quote index
#'
#' @export
last_quote <- function() .store_idx$get()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.