CSV to HTML translation: Difference between revisions
Content added Content deleted
(Shared a Simple R implementation) |
|||
Line 4,501: | Line 4,501: | ||
[[File:Csv2html.PNG|500px|thumb|none]] |
[[File:Csv2html.PNG|500px|thumb|none]] |
||
=={{header|R}}== |
|||
Using base R functions only, this is a very basic implementation and produces a simple HTML table |
|||
<lang R>File <- "~/test.csv" |
|||
Opened <- readLines(con = File) |
|||
Size <- length(Opened) |
|||
HTML <- "~/test.html" |
|||
Table <- list() |
|||
for(i in 1:Size) |
|||
{ |
|||
#i=1 |
|||
Split <- unlist(strsplit(Opened[i],split = ",")) |
|||
Table[i] <- paste0("<td>",Split,"</td>",collapse = "") |
|||
Table[i] <- paste0("<tr>",Table[i],"</tr>") |
|||
} |
|||
Table[1] <- paste0("<table>",Table[1]) |
|||
Table[length(Table)] <- paste0(Table[length(Table)],"</table>") |
|||
writeLines(as.character(Table), HTML)</lang> |
|||
'''Sample HTML output:''' |
|||
<lang html5><table><tr><td>Character</td><td>Speech</td></tr> |
|||
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr> |
|||
<tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr> |
|||
<tr><td>The multitude</td><td>Who are you?</td></tr> |
|||
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr> |
|||
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr></table></lang> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |
||