inst/unitTests/iframeSearchDemo.R

In paul-shannon/shinyModules: useful shiny modules

library(shinyModules)
#----------------------------------------------------------------------------------------------------
ui <- fluidPage(
        selectInput("geneSelector", "Gene:", c("", "Myc", "APOE", "bogus", "rs61825286")),
        selectInput("websiteSelector", "Website:",
                    c("UCSC", "GeneCards", "HomoloGene", "wiki", "PubMed", "dbSNP", "google",
                      #"GTEx:Gene", "GTEx:SNP",
                      "rVarBase", "ClinVar", "comments")),
         div(iframeSearchUI(id="iframe", title="fubar"),
           style="margin: 10px; margin-bottom: 30px; padding: 10px;"),
        )

#----------------------------------------------------------------------------------------------------
server <- function(input, output, session)
{
  newPage <- reactive({
     list(input$geneSelector, input$websiteSelector)
     })

  observeEvent(newPage(), ignoreInit=TRUE, { # input$geneSelector, ignoreInit=TRUE, {
     goi <- input$geneSelector
     woi <- input$websiteSelector
     printf("demo app, goi: %s   woi: %s", goi, woi)
     if(nchar(goi) > 0)
        callModule(iframeSearchServer, "iframe",  website=reactive(woi), geneSymbol=reactive(goi))
     })

} # server
#----------------------------------------------------------------------------------------------------
runApp(shinyApp(ui, server), port=9037)
#shinyApp(ui, server)