Создайте div, используя htmltools :: withtags для приложения Riny

Question

Я пытаюсь преобразовать эту html-карту с помощью начальной загрузки, чтобы использовать ее в приложении R глянцевый, используя htmltools.Ниже приведен реальный HTML-код, за которым следуют htmltools, которые я использую для преобразования его в блестящее приложение.Я могу создать его с помощью таблиц, но не с помощью div.Where я здесь не так.

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)