R Shiny DT 渲染文本和输入没有换行符

Question

我正在尝试在 Shiny DT 中渲染任何类型的 R Shiny 输入，但是我想避免换行。 如果我将一些文本和 html 标签与 shinyInput 函数连接起来，则文本和输入都会被渲染，但在输入之前和之后会发生换行符。

我认为根本原因是 div 标签，但谷歌搜索似乎添加了 style="display:inline;" css 代码应该解决它，但它没有，它甚至破坏了宽度定义。

你知道如何在同一个单元格上获取之前的文本、div 和之后的文本吗？

下面是一些可以玩的代码。

library(DT)

ui <- basicPage(
  h2("The mtcars data"),
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {
  
  shinyInput <- function(FUN, len, id, ...) {
    inputs <- character(len)
    for (i in seq_len(len)) {
      inputs[i] <- as.character(FUN(paste0(id, i), ...))
    }
    inputs
  }
  
  mtcarsx <- data.frame(mtcars, newvar=
                         paste0(
                           "tex before "
                           ,shinyInput(checkboxInput,nrow(mtcars),"mychbx",label="",value=FALSE,width=NULL),
                           " text after"))

  
  output$mytable = DT::renderDataTable({
    DT::datatable(mtcarsx, 
                  escape = FALSE, 
                  selection = 'none', 
                  rownames = FALSE, 
                  extensions = 'RowGroup', 
                  options = list(searching = FALSE, 
                                 ordering  = FALSE,
                                 rowGroup = list(dataSrc=c(1)),
                                 columnDefs = list(list(visible=FALSE, targets=c(1)))
                                 ))
  })
  
}

shinyApp(ui, server)

Answer 1

没错，您需要将包装复选框元素的 div 更改为display:inline 。 你说这并不能解决它，因为它破坏了宽度定义。 也许我错过了什么？ 我没有看到宽度列的变化。

tags$style("
             #mytable tr td div.form-group {
               display: inline;
             }
             #mytable tr td div.checkbox {
               display: inline; 
             }
             #mytable tr td div.checkbox label {
               padding: 0;
             }
             #mytable tr td div.checkbox input {
               position: relative;
               margin: 0;
             }")

如果之前和之后的文本是不变的，您可以在after和before使用 css 伪类来添加该内容。