library(shiny)

shinyServer(function(input, output, session) {

  output$first <- renderUI({
    sliderInput('xScale', '',
                min=7.0,max=9.0, value=c(7.5, 8.5), step=0.01)
  })

session$onSessionEnded(function() {
        stopApp()
    })
})

shinyUI(fluidPage(

  titlePanel("Test"),
      sidebarLayout(
        sidebarPanel(
          uiOutput('first')
        ),

    mainPanel(
      tabsetPanel(
        tabPanel('Text', includeHTML("post.html"))
        #tabPanel('Text', includeMarkdown('post.rmd'))
        )
      )
    )
  )
)