embed iframe inside shiny app

by 
library(shiny)

members <- data.frame(name=c("Name 1", "Name 2"), nr=c('BCRA1','FITM2'))

ui <- fluidPage(titlePanel("Getting Iframe"), 
                sidebarLayout(
                  sidebarPanel(
                    fluidRow(
                      column(6, selectInput("Member", label=h5("Choose a option"),choices=c('BCRA1','FITM2'))
                      ))),
                  mainPanel(fluidRow(
                    htmlOutput("frame")
                  )
                  )
                ))

server <- function(input, output) {
    observe({ 
    query <- members[which(members$nr==input$Member),2]
    test <<- paste0("http://news.scibite.com/scibites/news.html?q=GENE$",query)
  })
  output$frame <- renderUI({
    input$Member
    my_test <- tags$iframe(src=test, height=600, width=535)
    print(my_test)
    my_test
  })
}

shinyApp(ui, server)

enter image description here

More Related Contents:

  1. How to save plots that are made in a shiny app
  2. R shiny: display “loading…” message while function is running
  3. Make conditionalPanel depend on files uploaded with fileInput
  4. drop-down checkbox input in shiny
  5. Hosting and setting up own shiny apps without shiny server
  6. ‘Reset inputs’ button in shiny app
  7. How to change ‘Maximum upload size exceeded’ restriction in Shiny and save user file inputs?
  8. Marker mouse click event in R leaflet for shiny
  9. Subset based on variable column name
  10. How do I show the y value on tooltip while hover in ggplot2
  11. Favicon in Shiny
  12. Shiny: Dynamic Number of Output Elements/Plots
  13. Control the height in fluidRow in R shiny
  14. Shiny: Merge cells in DT::datatable
  15. RStudio Shiny ERROR: there is no package called “shinydashboard”
  16. Collect All user inputs throughout the Shiny App
  17. Update handsontable by editing table and/or eventReactive
  18. R Shiny Dynamic Input
  19. R Shiny set DataTable column width
  20. DT: Dynamically change column values based on selectinput from another column in R shiny app
  21. Get the event which is fired in Shiny?
  22. Remove ‘search’ option but leave ‘search columns’ option
  23. shinydashboard some Font Awesome Icons Not Working
  24. Add values to a reactive table in shiny
  25. Passing data within Shiny Modules from Module 1 to Module 2
  26. Edit datatable in Shiny with dropdown selection for factor variables
  27. How to add Rtools\bin to the system path in R
  28. Accessing parent namespace inside a Shiny Module
  29. How to get a warning on “shiny app will not work if the same output is used twice”
  30. Get the size of the window in Shiny

Leave a Comment