通过renderUI创建自动调整大小的textAreaInput

Question

我正在尝试调整textAreaInput的大小，以使它们默认显示整个区域的内容。之后，在auto-resize textAreaInput in shiny R中，我可以使用在ui下创建的textAreaInput（例如，textAreaInput会适当调整大小）。创建textAreaInput作为textAreaInput的一部分，更不用说作为模块的一部分时，我无法使其正常工作（例如renderUI不会调整大小）。如果有用，我很乐意使用shinyjs。

这里的根本问题是我不了解Javascript。

---

[在两种情况下都使用：

jc <- "document.addEventListener('DOMContentLoaded', function(event) {
    var observe;
if (window.attachEvent) {
observe = function (element, event, handler) {
element.attachEvent('on'+event, handler);
};
}
else {
observe = function (element, event, handler) {
element.addEventListener(event, handler, false);
};
}
function init () {
var text = document.getElementById('text');
function resize () {
text.style.height = 'auto';
text.style.height = text.scrollHeight+'px';
}
/* 0-timeout to get the already changed text */
function delayedResize () {
window.setTimeout(resize, 0);
}
observe(text, 'change',  resize);
observe(text, 'cut',     delayedResize);
observe(text, 'paste',   delayedResize);
observe(text, 'drop',    delayedResize);
observe(text, 'keydown', delayedResize);

text.focus();
text.select();
resize();
};init()
})
"

---

此，使用在ui下创建的textAreaInput，其大小将根据键入或粘贴到以下位置进行调整：

library(shiny)

ui <- fluidPage(
  shiny::tags$script(jc),
  textAreaInput(inputId = "text", label = "a", value = "b")
  # uiOutput("tai")
)

server <- function(input, output, session) {

  # output$tai <- renderUI({
  #     textAreaInput(inputId = "text", label = "a", value = "b")
  # })
}

shinyApp(ui, server)

与此同时，在服务器端在textAreaInput中创建的renderUI不会自动调整大小：

library(shiny)

ui <- fluidPage(
  shiny::tags$script(jc),
  # textAreaInput(inputId = "text", label = "a", value = "b")
  uiOutput("tai")
)

server <- function(input, output, session) {

  output$tai <- renderUI({
      textAreaInput(inputId = "text", label = "a", value = "b")
  })
}

shinyApp(ui, server)

Answer 1

您可以通过将init()替换为setTimeout(function(){init();}, 500);来包含延迟：