inst/pageOpenTest.R

In NNTbiomarker: Calculate Design Parameters for Biomarker Validation Studies

#http://stackoverflow.com/questions/25801807/opening-webpages-within-shiny-window-without-opening-a-separate-window

library(shiny)
runApp(list(ui= fluidPage(
  titlePanel("opening web pages"),
  sidebarPanel(
    selectInput(inputId='test',label=1,choices=1:5)
  ),
  mainPanel(
    htmlOutput("inc")
  )
),
server = function(input, output) {
  getPage<-function() {
    return((HTML(readLines('http://www.google.com'))))
  }
  output$inc<-renderUI({
    x <- input$test
    getPage()
  })
})
)