相关疑难解决方法(0)

在闪亮,我有以下几点:

  output$sequenceText <- renderText({
    showSequence()
  })

showSequence <- reactive({
  selectedSeqs <- as.numeric(input$sequenceSelect)
  resultString <- ""
  currentString <-""

  for(i in selectedSeqs){
    currentString <- paste(i, toString(myProts[i]), sep = ":")
    resultString <- paste(resultString, currentString, sep = "\n")
  }
  return(resultString)

})

但是,新行字符似乎不受尊重.我该如何解决这个问题？

谢谢!

可重复的例子:

require(shiny)
runApp(list(ui = pageWithSidebar(
headerPanel("Example"),
  sidebarPanel(
    sliderInput("index", 
                label = "Select a number",
                min = 1,
                max = 4,
                step = 1,
                value = 2)),
  mainPanel(
  htmlOutput("text")
  )),
server = function(input, output) {
  output$text <- renderUI({
    HTML(paste(c("banana","raccoon","duck","grapefruit")))
  })
}
))

我希望对应于索引(默认情况下为"raccoon")的单词以粗体显示,而其他单词以普通字体显示.

如果我做:

HTML(
<b>paste(c("banana","raccoon","duck","grapefruit")[input$index])<\b>,
paste(c("banana","raccoon","duck","grapefruit")[setdiff(1:4,input$index)])
)

我收到错误(<无法识别)...

我当前helpText在ui.R文件中使用它来显示一些静态代码内容。但是，由于输出的宽度不是固定的，因此代码看起来一团糟。那么如何显示逐字代码；固定宽度，因此易于阅读？

我试图在标题上获取一个自定义字段，以便人们知道上次刷新数据的时间。

在我的测试运行中，我只在代码中放置一个变量时就可以工作，但是当我使用textOutput它时，它给了我 HTML 背景逻辑。

<div id="Refresh" class="shiny-text-output"></div>

下面是我的代码：

library (shiny)
library (shinydashboard)

rm(list=ls())

header <- dashboardHeader(
          title = "TEST",
          tags$li(class = "dropdown", tags$a(paste("Refreshed on ", textOutput("Refresh")))))

body <- dashboardBody(

  fluidRow(box(textOutput("Refresh")))
)

sidebar <- dashboardSidebar()

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {

  output$Refresh <- renderText({
  toString(as.Date("2017-5-4"))
  })
}

shinyApp(ui, server)

这是我目前看到的：

编辑以显示更正的代码

library (shiny)
library (shinydashboard)

header <- dashboardHeader(
  title = "TEST",
  tags$li(class = "dropdown", tags$a((htmlOutput("Refresh1")))))

body <- dashboardBody(

  fluidRow(box(textOutput("Refresh2")))
)

sidebar <- dashboardSidebar()

ui <- …

我想在我闪亮的应用程序上显示一些 R 代码。因此，我使用了verbatimTextOutput但找不到断行和显示代码段的方法。

此解决方案（在 R 中使用 renderText() 在 R 中输出多行文本）仅适用于该HTML函数，并且（据我所知）无法混合verbatimTextOutput和htmlOutput。

我可以显示代码，tags$code但这不是我想要的外观（我更喜欢灰色背景）。

这是一个可重现的示例：

library(shiny)

ui <- fluidPage(
    mainPanel(htmlOutput("base", placeholder = FALSE)
              )
)

server <- function(input, output) {

  output$base <- renderUI({
    tags$code(HTML(paste("just", "some", "code", sep = '<br/>')))
  })

}

shinyApp(ui = ui, server = server)