Description Usage Arguments Examples
UI of editableDT Shiny module
1 | editableDTUI(id)
|
id |
A string |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # Only run examples in interactive R sessions
if (interactive()) {
library(shiny)
ui=fluidPage(
selectInput("select","select",choices=c("mtcars","iris","sampleData")),
textInput("mydata","mydata",value="mtcars"),
hr(),
editableDTUI("editableDT"),
hr(),
verbatimTextOutput("test")
)
server=function(input,output,session){
data=reactive({
myget(input$mydata)
})
observeEvent(input$select,{
updateTextInput(session,"mydata",value=input$select)
})
result=callModule(editableDT,"editableDT",data=data)
output$test=renderPrint({
str(result())
})
}
shinyApp(ui=ui,server=server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.