Shiny中的反应滑块和渲染html文件无法一起使用

Question

我想使用tabPanels，并且在ui.R中包含一个反应性Slider和一个html文件的组合有问题。似乎这个问题不是由于tabPanel造成的，当我在主面板中使用includeX时，它也显示出来。

如果我像这里所示这样做，我得到的面板文本的公式正确，但滑块搞砸了。 如果文本包含为rmd（或md），则滑块显示为右侧，但公式未正确呈现。

我在stackoverflow发布了类似但略有不同的问题，这些问题可能有相同的原因，但我不确定。

server.R

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()
    })
})

ui.R

shinyUI(fluidPage(

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

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

感谢任何帮助。感谢。