R Markdown htmltools with cat function adds additional not needed code

Question

I need to generate a grid of thumbnails with texts and links. Something like YouTube.

To do so I am using Markdown and htmltool package.

This is a testing code