## ----setup, include=FALSE------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
## ------------------------------------------------------------------------
library(rh5pydclient)
## ------------------------------------------------------------------------
initPython()
## ------------------------------------------------------------------------
endpoint = 'http://54.224.146.67:5000'
domain = 'tinyfile.public.gliobulk.org'
conn <- initConn(domain=domain, mode='r+', endpoint=endpoint)
## ------------------------------------------------------------------------
D <- getDataset(conn, 'tinyds')
## ------------------------------------------------------------------------
A <- array(c(4, 14, 7, 17, 5, 15, 9, 19), dim=c(2, 2, 2))
setSubmatrix(D, c('7:8:1', '11:12:1', '11:12:1'), A)
# check
getSubmatrix(D, c('7:8:1', '11:12:1', '11:12:1'))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.