fileNotesDialog <- function(id, value) {
modalDialog(
textAreaInput(id, "File Notes", value, width = "100%", height = "400px") %>%
tagAppendAttributes(style = "width: 100%;"),
footer = modalButton("Ok")
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.