r - 如何在 R 中迭代“withTags”和“div”

Question

trial <- c("a", "b", "c", "d")
                  
for (i in 1 : 4 ){
  bus <- withTags(
    div(id = i,trial[i]))
  print(bus)
}

我希望输出为：

<div id="1">a</div>
<div id="2">b</div>
<div id="3">c</div>
<div id="4">d</div>

但是我得到了Error in trial[i] : invalid subscript type 'closure'。

我该如何前进？

标签： r

Answer 1

使用 lapply：

trial <- letters
buslist <- lapply(
  seq_along(trial),
  function(x, k){
    bus <- withTags(div(id = k,x[k]))
    return(bus)},
  x = trial)
names(buslist) <- letters
# > buslist
# $a
# <div id="1">a</div>
#   
#   $b
# <div id="2">b</div>
#   
#   $c
# <div id="3">c</div>

我没有足够的代表发布的输出