Как перебирать "withTags" и "div" в R

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'.

Как мне go пересылать в этом?

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>

Вывод, у меня недостаточно репутации для публикации

Answer 2

Поскольку вы используете withTags, это делает функции доступными для всех элементов HTML. Так уж получилось, что tags$i - это функция, которая создает элементы itali c. Это маскирует вашу переменную итератора, таким образом, внутри функции R вещи, которые i являются функцией. Одно из решений - изменить имя вашего итератора

for (idx in 1:4 ){
  bus <- withTags(
    div(id = idx, trial[idx]))
  print(bus)
}

или пропустить withTags и просто вызвать

for (i in 1:4 ){
  bus <- tags$div(id = i, trial[i])
  print(bus)
}