相关疑难解决方法(0)

我想使用一个renderText()命令输出多行文本.但是,这似乎不可能.例如,从闪亮的教程中我们截断了代码server.R:

shinyServer(
  function(input, output) {
    output$text1 <- renderText({paste("You have selected", input$var)
    output$text2 <- renderText({paste("You have chosen a range that goes from",
      input$range[1], "to", input$range[2])})
  }
)

和代码ui.R:

shinyUI(pageWithSidebar(

  mainPanel(textOutput("text1"),
            textOutput("text2"))
))

基本上打印两行:

You have selected example
You have chosen a range that goes from example range.

是否有可能在两行合并output$text1,并output$text2成为一个代码块？到目前为止,我的努力都失败了,例如

output$text = renderText({paste("You have selected ", input$var, "\n", "You have chosen a range that goes from", input$range[1], "to", input$range[2])})

有人有主意吗？

我希望在两行上有一个信息框显示文本.例如,如果我要将html和闪亮结合起来(就像传单中的弹出窗口一样):

output$myInfoBox <- renderInfoBox({infobox(paste("Output1: ", myout1, "<br>", "Output2: ", myout2, sep = ""))})

我试过"<br>", "\n",等等没什么用.

谢谢!

我正在使用 DTedit pckg 在闪亮的应用程序中显示数据帧（mydata），因为这个简单的 R pckg 允许我以非常简单的方式添加/编辑行。到目前为止，一切都很好。但是，我想在 Var2 列中引入一个新行（或换行符），将第一行与第二行分开，将第三行与第四行分开。

我已经能够使用 DT::dataTableOutput （下面的选项 1）来做到这一点。然而，DTedit 似乎只适用于shiny::uiOutput，而且我无法在那里引入新行（选项2）。我读过有关 div() 的内容，但现在我完全一无所知。

有人可以阐明如何使用 Dtedit- 因此闪亮::uiOutput 在数据框的列中引入新行吗？

注意：我得出的结论是，shiny::uiOutput 是这里的问题，因为这是我在两个选项之间看到的唯一“明显”差异。但这只是我，我可能错过了一些不太明显的东西。

PD：这是我的第一篇文章，所以请告诉我是否可以做得更好。谢谢！

# OPTION 1: using DT (DT::dataTableOutput) (WORKING)

    ui = fluidPage(
      h3("New line works when using DT (DT::dataTableOutput)",
      mainPanel(
        DT::dataTableOutput("mytable")
        )
      )
    )

    server = function(input, output){

      #dataframe
      mydata <- data.frame(Var1 = c("a", "b"),
                           Var2 = c("FIRST LINE: first; SECOND LINE: second", 
                                    "THIRD LINE: third; FOUR LINE: four"))

      #Subtitute semicolon by break line based on 
      #/sf/ask/1845773471/
      mydata$Var2 <- …