Bascket <- function(rn){
n <- length(PortfolioRisks)
nam <- colnames(PortfolioRisks[[1]])
PR <- data.frame(matrix(unlist(PortfolioRisks),nrow = n,byrow=T))
colnames(PR) <- nam
y <- PR[PR[,4] == rn,]
y <- y[with(y, order(-strength)), ]
id <- y[1,1]
Portfolios[[id]][,-dim(Portfolios[[id]])]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.