多个内联textOutputs

Question

我对R来说相当新，我有一个闪亮的应用程序，显示一个用户输入更新的情节，就像电影资源管理器一样： http://shiny.rstudio.com/gallery/movie-explorer.html

我能够输出回归线方程，但是所有元素都在不同的线上，而不是像方程式那样看到一条线。我已经在闪亮的应用程序上附上了它现在的样子截图。

Screenshot of Current App Display

在UI上我有：

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