javascript - textArea 的 Shiny 绑定(bind) - 无法设置初始值

Question

我正在 Shiny 应用程序中使用 textArea 来为 dplyr 的过滤动词提供输入。我使用 Shiny 的绑定(bind)，因此仅在按下返回键后输入才会传递到 dplyr。除了我无法为文本区域设置初始值之外，这工作得很好。不幸的是，这在我的应用程序中至关重要，因为这是我赖以保存和恢复状态的功能。我可以设置文本输入 (returnTextAreaInput1) 的初始值，但不能设置文本区域 (returnTextAreaInput2) 的初始值。

下面是我正在使用的 R 和 js 代码。如果您从桌面运行代码，您将看到 text_out1 显示初始值，而 text_out2 则不显示。不幸的是我需要一个文本区域。

returnTextAreaInput1 <- function(inputId, label, value = "") {
  tagList(tags$label(label, `for` = inputId), br(),
          tags$input(id = inputId, type = "text", value = value,
                     class="returnTextArea form-control"))
}

returnTextAreaInput2 <- function(inputId, label, value = "") {
  tagList(
    tags$label(label, `for` = inputId),br(),
    tags$textarea(id=inputId, type = "text", value = value, rows="3",
                  class="returnTextArea form-control")
  )
}

setwd("~/Desktop")

ui <- basicPage(
    includeScript("returnTextAreaBinding.js"),
    returnTextAreaInput1("ret1", "Select 1:", "init text 1"),
    returnTextAreaInput2("ret2","Select 2:", "init text 2"),
    textOutput("text_out1"),
    textOutput("text_out2")
)

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

  output$text_out1 <- renderPrint({
    input$ret1
  })

  output$text_out2 <- renderPrint({
    input$ret2
  })
}

shinyApp(ui = ui, server = server)

下面是绑定(bind)的 js 代码。

// based on https://gist.github.com/xiaodaigh/7150112
var returnTextAreaBinding = new Shiny.InputBinding();
$.extend(returnTextAreaBinding, {

    find: function(scope) {
        return $(scope).find('.returnTextArea');
    },
    getId: function(el) {
        return $(el).attr('id')
    },
    getValue: function(el) {
        return el.value;
    },
    setValue: function(el, value) {
        el.value = value;
    },
    subscribe: function(el, callback) {
        $(el).on('keyup.textInputBinding input.textInputBinding', function(event) {
            if(event.keyCode == 13) { //if enter key is pressed
                callback()
            }
        });
    },
    unsubscribe: function(el) {
        $(el).off('.textInputBinding');
    },
    receiveMessage: function(el, data) {
        if (data.hasOwnProperty('value'))
            this.setValue(el, data.value);
        if (data.hasOwnProperty('label'))
            $(el).parent().find('label[for=' + el.id + ']').text(data.label);
        $(el).trigger('change');
    },
    getState: function(el) {
        return {
            label: $(el).parent().find('label[for=' + el.id + ']').text(),
            value: el.value
        };
    },
    getRatePolicy: function() {
        return {
            policy: 'debounce',
            delay: 250
        };
    }
});
Shiny.inputBindings.register(returnTextAreaBinding, 'shiny.returnTextArea');

编辑:按照建议，此功能按预期工作

returnTextAreaInput <- function(inputId, label = "", value = "") {
  tagList(
    tags$label(label, `for` = inputId),br(),
    tags$textarea(id=inputId, type = "text", rows="2",
                  class="returnTextArea form-control", value)
  )
}

Answer 1

您可以添加value作为tags$textarea函数的第一个参数，默认情况下它将添加在html textarea标签之间:

returnTextAreaInput2 <- function(inputId, label, value = "") {
        tagList(
                tags$label(label, `for` = inputId),br(),
                tags$textarea(value,id=inputId, type = "text", value = value, rows="3",
                              class="returnTextArea form-control")
        )
}