r - 複数の引数を指定して lapply() を使用して HTML コードを生成する

Question

を使用して、ループ内でいくつかの html 段落を生成しようとしていますlapply()。これらの段落は にありdata.frame、data.frame段落の詳細 (クラス、ID など) を含む列がさらにあります。引数を 1 つだけ使用してループを生成できました。問題は、ループに複数の引数が必要なことですlapply()。誰もこれを行う方法を知っていますか?

data.frame：_

df = data.frame(paragraph = c("paragraph1","paragraph2","paragraph3"),
                class= c("alert", "good", "alert"),
                id= c("id_1","id_2", "id_3"))

目的は、次の出力を得ることです。

<div>     
     <p class="alert" id="id_1">paragraph1</p> 
     <p class="good" id="id_2">paragraph2</p> 
     <p class="alert" id="id_3">paragraph3</p> 
</div>

ループ (1 つのlappy()引数のみ):

library(htmltools)
tags$div(lapply(df$paragraph, function(x){tags$p(class="", id="", x)}))

classとidが columnclassとidのデータで埋められるようにするにはどうすればよいdfですか?