1

R でコードの html タグ付けツールをコーディングしようとしていますが、数字を見つけて色付きの数字に置き換えるのが困難です。

以下は正しい方向だと思いますが、何をすべきかわかりません。

txt <- gsub("\\<[:digit:]\\>", paste0(num.start,"\\1",num.end) , txt)

これは仕事をしていないようです。全体として、単語の一部ではないすべての数字を識別し、色を変更し、num.start、num.end 変数によって定義される数字の前後にタグを付けて置き換えたいと考えています。

例えば:

num.start <- '<span style="color: #990000"><b>'
num.end   <- '</b></span>'

したがって、Rコードをフィードして、必要に応じてhtmlタグを記述できるようにしたいと考えています。

Rコード:

 txt <- "a <- 3945 ; b <- 3453*3942*a"
 gsub("\\<[:digit:]\\>", paste0(num.start,"\\1",num.end) , txt)
 [1] "a <- <span style="color: #990000"><b>3945</b></span> ; b <- <span style="color: #990000"><b>3453</b></span>*<span style="color: #990000"><b>3942</b></span>*a"

変更した R コードをブログなどの HTML エディターにコピーすると、すべての数字が色分けされることが期待されます。

助けてくれてありがとう!フランシス

4

1 に答える 1