আর nested-mixed

user <- list(
  "নাম" = "মোঃ আরিফ",
  "কাজ" = "প্রোগ্রামিং",
  "দক্ষতা" = c("পিএইচপি", "পাইথন", "জাভাস্ক্রিপ্ট"),
  "তথ্য" = list(
    "দেশ" = "বাংলাদেশ"
  )
)

cat("<table border='1'>
")

cat("<tr>
")
cat("<th colspan='2'>তথ্য</th>
")
cat("</tr>
")

cat("<tr>
")
cat("<th>নাম</th>
")
cat("<td>", user[["নাম"]], "</td>
")
cat("</tr>
")

cat("<tr>
")
cat("<th>কাজ</th>
")
cat("<td>", user[["কাজ"]], "</td>
")
cat("</tr>
")

cat("<tr>
")
cat("<th>দক্ষতা</th>
")
cat("<td>", paste(user[["দক্ষতা"]], collapse = ", "), "</td>
")
cat("</tr>
")

cat("<tr>
")
cat("<th>তথ্য</th>
")
cat("<td>
")

cat("<table border='1'>
")

cat("<tr>
")
cat("<th>দেশ</th>
")
cat("<td>", user[["তথ্য"]][["দেশ"]], "</td>
")
cat("</tr>
")

cat("</table>
")

cat("</td>
")
cat("</tr>
")

cat("</table>
")