Description Usage Arguments Examples
UI of textFunction shiny module
1 |
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 | library(ggplotAssist)
library(shiny)
# Only run examples in interactive R sessions
if(interactive()){
ui=fluidPage(
textFunctionInput("text"),
textOutput("text")
)
server=function(input,output,session){
rv=reactiveValues()
rawData=read.csv("data-raw/setting.csv",stringsAsFactors = FALSE)
settingData=splitData(rawData,"setting")
rv$argList<-list(label="text",mode="text",value="element_text()",choices=NULL,width=200,
bg="lightcyan",placeholder="")
result=callModule(textFunction,"text",argList=reactive(rv$argList),
editCode=reactive(TRUE),settingData=reactive(settingData))
output$text=renderText({
result()
})
}
shinyApp(ui,server)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.