সম্পাদনা
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> ")
পূর্বরূপ
