<e3><82><b9><e3><83><ac><e3><83><83><e3><83><89><e3><81><ae><e5><86><85><e5><ae><b9><e3><82><92><e3><82><b3><e3><83><b3><e3><82><bd><e3><83><bc><e3><83><ab><e3><81><ab><e5><87><ba><e5><8a><9b><e3><81><97><e3><81><be><e3><81><99><e3><80><82>
1 2 3 4 5 6 | printThread(thread, index = 1:nrow(thread), by = 1,
format = function(post) { email <- sprintf("[%s]", post$Email)
datetime <- strftime(as.POSIXct(post$DateTime, origin =
"1970-01-01 09:00:00"), "%Y/%m/%d(%a) %H:%M:%S") header <-
paste(post$Number, post$Name, email, datetime) message <- paste("--",
header, "--", post$Message, sep = "\n") return(message) })
|
thread |
<e3><82><b9><e3><83><ac><e3><83><83><e3><83><89><e3><83><87><e3><83><bc><e3><82><bf><e3><83><95><e3><83><ac><e3><83><bc><e3><83><a0> |
index |
<e5><87><ba><e5><8a><9b><e3><81><99><e3><82><8b><e3><83><ac><e3><82><b9><e7><95><aa><e5><8f><b7> |
by |
1 <e5><9b><9e><e3><81><ab><e5><87><ba><e5><8a><9b><e3><81><99><e3><82><8b><e3><83><ac><e3><82><b9><e6><95><b0> |
format |
<e3><83><ac><e3><82><b9><e3><81><ae><e5><87><ba><e5><8a><9b><e3><83><95><e3><82><a9><e3><83><bc><e3><83><9e><e3><83><83><e3><83><88> |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.