আর nested-key

user <- list(
  "নাম" = "মোঃ আরিফ",
  "তথ্য" = list(
    "স্বপ্ন" = "সফটওয়্যার ইঞ্জিনিয়ার",
    "দেশ" = "বাংলাদেশ"
  )
)

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

cat("<tr>
")
cat("<th>নাম</th>
")
cat("<td>", user[["নাম"]], "</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("<tr>
")
cat("<th>দেশ</th>
")
cat("<td>", user[["তথ্য"]][["দেশ"]], "</td>
")
cat("</tr>
")

cat("</table>
")

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

cat("</table>
")