Nothing
x <- keras::dataset_mnist()
x$train$x <- t(apply(x$train$x, 1, function(x) x/255))
x$test$x <- t(apply(x$test$x, 1, function(x) x/255))
x$train$y <- keras::to_categorical(x$train$y, num_classes = 10)
x$test$y <- keras::to_categorical(x$test$y, num_classes = 10)
saveRDS(x, "data/mnist.rds")
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.