多联机textOutputs

Question

我是相当新的R和我有一个闪亮的应用程序，显示用户输入很像电影探险家在这里更新一个情节： http://shiny.rstudio.com/gallery/movie-explorer.html

我能够输出回归直线方程，但是所有的元素都在不同的线上，而不是像一个方程那样的单一线。我附上了这款闪亮应用的现在截图。

Screenshot of Current App Display

在用户界面上，我有：

wellPanel(
     span(h4("Linear Regression Line: "), h5(textOutput("slope"), "x +", textOutput("intercept"))) 
     ) 

并在服务器上，我有：

output$slope <- renderText({coefficients(lm(`var1` ~ `var2`, data=filteredData()))[2]}) 
output$intercept <- renderText({coefficients(lm(`var1` ~ `var2`, data=filteredData()))[1]}) 

如何得到在同一行的公式元素的任何想法？ 谢谢！

Answer 1

我通过在每个textOutputs中指定inline = TRUE来解决此问题。由于服务器代码未更改，因此我的UI代码将在下面转贴。

wellPanel(
    span(h4("Linear Regression Line: "), h5(textOutput("slope", inline = TRUE), "x +", textOutput("intercept", inline = TRUE))) 
    )