如何在R Shiny中查询元素

Hav0k 发表于 Dev

Hav0k

我想根据它们的HTML标签查询Shiny应用程序中的元素。例如，对于以下应用程序，如何访问所有h1元素，包括其标签和ID？

library(shiny)
ui <- fluidPage(
  h1("Get", id = "1"),
  h1("this", id = "2"),
  h2("But", id = "3"),
  h3("not", id = "4"),
  h4("that", id = "5")
)

server <- function(input, output) {}

shinyApp(ui = ui, server = server)

托尼奥·李布兰德

当您javascript在问题中标记时，请找到基于ShinyJS / JS的解决方案。

您可以使用以下代码来标识h1元素：

var elements = document.getElementsByTagName('h1');
var sendToR = [];
for (var nr = 0; nr < elements.length; nr++) {
    var newElement = {};
    newElement['id'] = elements[nr].id;
    newElement['text'] = elements[nr].textContent;
    sendToR.push(newElement);
}

然后，您可以通过以下方式将结果“发送”到R：

Shiny.onInputChange('h1', sendToR)

并在R端收到：

observe({
    print(input$h1)
  })

可重现的示例：

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  h1("Get", id = "1"),
  h1("this", id = "2"),
  h2("But", id = "3"),
  h3("not", id = "4"),
  h4("that", id = "5")
)

server <- function(input, output) {
  observe({
    runjs("
      var elements = document.getElementsByTagName('h1');
      var sendToR = [];
      for (var nr = 0; nr < elements.length; nr++) {
          var newElement = {};
          newElement['id'] = elements[nr].id;
          newElement['text'] = elements[nr].textContent;
          sendToR.push(newElement);
      }
      Shiny.onInputChange('h1', sendToR)
    ")
  })

  observe({
    print(input$h1)
  })
}

shinyApp(ui = ui, server = server)

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。