frame.row.to.char <-
function (frame.row)
{
the.string <- rep(NA, length(frame.row))
for (i in 1:length(frame.row)) {
the.string[i] <- as.character(as.data.frame(frame.row)[,
i])
}
return(the.string)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.