html - 将 R 数据作为输入传递给 html？

Question

我有一个R列表

list[[1]]
   [1] 5720 JACKSONBURG RD,TRENTON,OH,45067
   [2] 1282 OAKMONT AVE,HAMILTON,OH,45013  
   [3] 1001 CHASE AVE,HAMILTON,OH,45015   
   [4] 2266 TWIN OAKS DR,LEBANON,OH,45036  

我用 HTML 在 javascript 中创建了谷歌地图。 我使用上述地址作为 HTML 值的输入(手动):

 <select multiple id="waypoints">

      <option value="5720 JACKSONBURG RD,TRENTON,OH">1</option>
      <option value="1282 OAKMONT AVE,HAMILTON,OH,45013 ">2</option>
      <option value="1001 CHASE AVE,HAMILTON,OH,45015">3</option>
      <option value="2266 TWIN OAKS DR,LEBANON,OH,45036">4</option>

有没有办法生成 <option value="XXXXX"> 基于我拥有的 R 数据？像一个循环？ 我正在关注 https://developers.google.com/maps/documentation/javascript/examples/directions-waypoints

Answer 1

一种可能性是使用XML 包中的xmlNode()。在这里，我们还可以将它与 .children 参数中的 lapply() 一起使用，以在同一调用中生成子节点。

library(XML)

xmlNode(
    "select multiple", 
    attrs = c(id = "waypoints"),
    .children = lapply(seq_along(x[[1]]), function(i) {
        xmlNode("option", i, attrs = c(value = x[[1]][i]))
    })
)
# <select multiple id="waypoints">
#  <option value="5720 JACKSONBURG RD,TRENTON,OH,45067">1</option>
#  <option value="1282 OAKMONT AVE,HAMILTON,OH,45013">2</option>
#  <option value="1001 CHASE AVE,HAMILTON,OH,45015">3</option>
#  <option value="2266 TWIN OAKS DR,LEBANON,OH,45036">4</option>
# </select multiple>

数据:

x <- list(c("5720 JACKSONBURG RD,TRENTON,OH,45067", "1282 OAKMONT AVE,HAMILTON,OH,45013", 
"1001 CHASE AVE,HAMILTON,OH,45015", "2266 TWIN OAKS DR,LEBANON,OH,45036"
))