আর

fruits <- c("আপেল", "আঙ্গুর", "কমলা", "কলা")

cat("<ul>
")

for (fruit in fruits) {
  cat("<li>", fruit, "</li>
")
}

cat("</ul>
")

info <- list(
  "নাম" = "মোঃ আরিফ",
  "দেশ" = "বাংলাদেশ"
)

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

for (key in names(info)) {
  val <- info[[key]]

  cat("<tr>
")
  cat("<th>", key, "</th>
")
  cat("<td>", val, "</td>
")
  cat("</tr>
")
}

cat("</table>
")

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>
")

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

cat("<h3>তথ্য</h3>
")

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

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("</table>
")

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>
")

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>
")

users <- list(
  c("10", "তানিম", "বাংলাদেশ"),
  c("11", "জোহান", "নেদারল্যান্ড"),
  c("12", "হামিদ", "আফগানিস্তান"),
  c("13", "সাকিব", "বাংলাদেশ")
)

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

cat("<tr>
")
cat("<th>আইডি</th>
")
cat("<th>নাম</th>
")
cat("<th>দেশ</th>
")
cat("</tr>
")

for (user in users) {
  cat("<tr>
")
  cat("<td>", user[1], "</td>
")
  cat("<td>", user[2], "</td>
")
  cat("<td>", user[3], "</td>
")
  cat("</tr>
")
}

cat("</table>
")

users <- list(
  c(10, "তানিম", "বাংলাদেশ"),
  c(11, "জোহান", "নেদারল্যান্ড"),
  c(12, "হামিদ", "আফগানিস্তান"),
  c(13, "সাকিব", "বাংলাদেশ")
)

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

cat("<tr>
")
cat("<th>আইডি</th>
")
cat("<th>নাম</th>
")
cat("<th>দেশ</th>
")
cat("</tr>
")

for (user in users) {
  cat("<tr>
")
  cat("<td>", user[1], "</td>
")
  cat("<td>", user[2], "</td>
")
  cat("<td>", user[3], "</td>
")
  cat("</tr>
")
}

cat("</table>
")

users <- list(
  list("আইডি" = 10, "নাম" = "তানিম", "দেশ" = "বাংলাদেশ"),
  list("আইডি" = 11, "নাম" = "জোহান", "দেশ" = "নেদারল্যান্ড"),
  list("আইডি" = 12, "নাম" = "হামিদ", "দেশ" = "আফগানিস্তান"),
  list("আইডি" = 13, "নাম" = "সাকিব", "দেশ" = "বাংলাদেশ")
)

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

cat("<thead>
")
cat("<tr>
")

for (key in names(users[[1]])) {
  cat("<th>", key, "</th>
")
}

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

cat("<tbody>
")

for (user in users) {
  cat("<tr>
")

  for (value in user) {
    cat("<td>", value, "</td>
")
  }

  cat("</tr>
")
}

cat("</tbody>
")
cat("</table>
")

users <- list(
  c("id", "name", "land"),
  c(10, "তানিম", "বাংলাদেশ"),
  c(11, "জোহান", "নেদারল্যান্ড"),
  c(12, "হামিদ", "আফগানিস্তান"),
  c(13, "সাকিব", "বাংলাদেশ")
)

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

for (index in seq_along(users)) {
  user <- users[[index]]

  cat("<tr>
")

  for (value in user) {
    tag <- if (index == 1) "th" else "td"
    cat("<", tag, ">", value, "</", tag, ">
", sep = "")
  }

  cat("</tr>
")
}

cat("</table>
")