From 7910d9fde404d0428ca4366dad4508caec9df1d6 Mon Sep 17 00:00:00 2001
From: Winston Chang <winston@stdout.org>
Date: Tue, 26 Apr 2016 15:22:40 -0500
Subject: [PATCH] Add argument to exclude values from bookmarking

---
 R/restore.R                  | 12 ++++++++++--
 man/encodeBookmarkDataURL.Rd | 14 ++++++++++++++
 2 files changed, 24 insertions(+), 2 deletions(-)
 create mode 100644 man/encodeBookmarkDataURL.Rd

diff --git a/R/restore.R b/R/restore.R
index ebd380645..c3c1e4871 100644
--- a/R/restore.R
+++ b/R/restore.R
@@ -13,11 +13,19 @@ decodeBookmarkDataURL <- function(url) {
   )
 }
 
+
+#' @param input The session's input object.
+#' @param exclude A character vector of input names that should not be
+#'   bookmarked.
 #' @export
-encodeBookmarkDataURL <- function(input, values, files) {
-  vals <- vapply(reactiveValuesToList(input), function(x) {
+encodeBookmarkDataURL <- function(input, exclude = NULL) {
+  vals <- reactiveValuesToList(input)
+  vals <- vals[setdiff(names(vals), exclude)]
+
+  vals <- vapply(vals, function(x) {
     toJSON(x, strict_atomic = FALSE)
   }, character(1), USE.NAMES = TRUE)
+
   paste0(
     encodeURIComponent(names(vals)),
     "=",
diff --git a/man/encodeBookmarkDataURL.Rd b/man/encodeBookmarkDataURL.Rd
new file mode 100644
index 000000000..376b69f6c
--- /dev/null
+++ b/man/encodeBookmarkDataURL.Rd
@@ -0,0 +1,14 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/restore.R
+\name{encodeBookmarkDataURL}
+\alias{encodeBookmarkDataURL}
+\usage{
+encodeBookmarkDataURL(input, exclude = NULL)
+}
+\arguments{
+\item{input}{The session's input object.}
+
+\item{exclude}{A character vector of input names that should not be
+bookmarked.}
+}
+