使用htmltools :: withtags为R Shiny应用程序创建div

Question

我正在尝试使用引导程序转换此html卡，以便在使用htmltools的R Shiny应用程序中使用。以下是实际的html代码，然后是我用来将其转换为在闪亮的应用程序中使用的htmltools。我可以用表格创建它，但不能用divs创建。这里我错在哪里。

HTML代码

<div class="card border-success mb-3" style="max-width: 18rem;">
  <div class="card-header bg-transparent border-success">Header</div>
  <div class="card-body text-success">
  <h5 class="card-title">Success card title</h5>
  <p class="card-text">Some quick example text to build on the card title and make up the bulk of the cards content.</p>
</div>
<div class="card-footer bg-transparent border-success">Footer</div>
</div>

R HTMLWIDGETS

cards = htmltools::withTags(
  div(class = "card border-success mb-3",
      div(class="card-header bg-transparent border-success"),
      div(class="card-body text-success" ,
      h3(class="card-title","header"),
      p(class="card-text","text")
   ),
      div(class= "card-footer bg-transparent border-success")
  ))

print(cards)