rray_shape <- function(x) {
# removes vctrs is.object() restriction
rray_dim(x)[-1]
}
rray_shape2 <- function(x, y) {
rray_dim2(rray_shape(x), rray_shape(y))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.