Nothing
#' @export
data_claim2 <- c(rep(0,3719), rep(1,232), rep(2,38), rep(3,7), rep(4,3),rep(5,1), rep(6,0))
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.