文字列変数として格納してあるHTMLをファイルに出力したい

うぇっぶには疎いのでやり方がよくわからず、有識者の方々にお伺いしたところ

@teramonagi 同じことやったことがあるので、参考までに　sink(file(paste(filename, "html", sep="."), open="w", encoding="UTF-8"));cat(HTML);sink()
2012-04-05 00:17:29 via web to @teramonagi

とやるのが一番良さそうだったので、これを使わせてもらった。ありがとうございます！
こんな感じカレントのワーキングディレクトリにhoge.htmlが作成される。

#出力したい内容を文字列に格納
html <- "
  <!DOCTYPE html>
  <html lang=\"ja\">
    <head>
      <title>TEST</title>
    </head>
    <body>
      <h1>TEST</h1>
    </body>
  </html>
"
#ファイルをに保存
sink(file("hoge.html", open="w"));
cat(html)
sink()