スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

RでHTML出力

C#、Python等も考えたが、地図がRだから、Rを使うことにする。
scan関数でテンプレート全体を読み込んで、キーとなる個所を変換する。

setwd("C:/Users/XXX/Desktop/statmap/test2")
template <- scan("template.html", what = character(), sep="\n")
text1 <- scan("text1.txt", what = character(), sep="\n")
text1 <- paste(text1, collapse = "<br>")
text2 <- scan("text2.txt", what = character(), sep="\n")
text2 <- paste(text2, collapse = "<br>")
html <- template
html <- gsub("text_001", text1, html)
html <- gsub("text_002", text2, html)
write.table(html,"index.html",row.names=F,col.names=F,quote=F)
スポンサーサイト

コメントの投稿


非公開コメント

コメント

Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
04 | 2017/05 | 06
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。