Question

我有一个闪亮的应用程序有两个输出：

plot是一个简单的图表，
session包含一些会话信息的文本字符串。

我在选项卡中显示该情节，并希望在情节下方显示会话文本。如果我用这个：

mainPanel(
  tabsetPanel(tabPanel(title = "OC Curve", 
                       plotOutput("plot"), 
                       p("is anyone there?"))))

文字“有人吗？”正是我所期待的（以及情节）。但是，

mainPanel(
  tabsetPanel(tabPanel(title = "OC Curve", 
                       plotOutput("plot"), 
                       p(textOutput("session")))))

不显示情节或文字。我可以验证session是否存在：

mainPanel(
  p(textOutput("session")),
  tabsetPanel(tabPanel(title = "OC Curve", 
                       plotOutput("plot"), 
                       p("is anyone there?"))))

此处，session文字位于标签上方。

我在x86_64-unknown-linux-gnu（64位）上使用的是带有R版3.0.2（2013-09-25）的shiny_0.8.0。

谢谢，

最高

Answer 1

它不显示情节或文字，因为您没有提供文字或情节来展示它。将其添加到您的服务器，例如：

server <- function(input,output){
  output$session= renderText({
    "some text here "
  })
  output$plot <- renderPlot({plot(0)})
}

Answer 2

想出来。您不能多次使用相同的textOutput（显然）。我的代码在另一个输出中有p(textOutput("session"))。删除并使用：

mainPanel(
  tabsetPanel(tabPanel(title = "OC Curve", 
                       plotOutput("plot"), 
                       p(textOutput("session")))))

的工作原理。我必须克隆session对象才能在多个地方使用它。

谢谢，

最大

tabPanel输出中缺少文本

2 个答案: