View2 <- function(x){
nc <- ncol(x[[1]])
bound <- vector("list", 2*nc)
bound[seq(from = 1, to = 2*nc, by = 2)] <- x[[1]]
bound[seq(from = 2, to = 2*nc, by = 2)] <- x[[2]]
names(bound)[seq(from = 1, to = 2*nc, by = 2)] <- paste0("1_", names(x[[1]]))
names(bound)[seq(from = 2, to = 2*nc, by = 2)] <- paste0("2_", names(x[[1]]))
View(bound)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.