Nothing
subset_data <- function(p, cols, subset_string, sortCol) {
# can be made a lot shorter
s_data <- p$data[cols]
s_ordered <- clone(p$ordered[cols])
if (!missing(subset_string)) {
i <- ffwhich(p$data, parse(text=subset_string))
s_data <- s_data[i,]
# HACK for the moment (other ordered indices are not ok)
nrow(s_ordered) <- length(i)
s_ordered[[sortCol]] <- fforder(s_data[[sortCol]])
}
structure(
list( data = s_data
, ordered = s_ordered
)
, name=attr(p, "name")
, class="prepared"
)
}
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.