regex - Rで変数を正規表現に渡す代わりに何ができますか?

Question

一部のテキストから短い単語と長い単語を削除するコードは次のとおりです。

# Remove Words based on lowerCutOff & upperCutOff
removeByLength<- function(text,lowerCutOff=2,upperCutOff=12){
  text<- gsub("\\b[a-zA-Z0-9]{1,lowerCutOff}\\b|\\b[a-zA-Z0-9]{upperCutOff,}\\b"," ",text)
  return(text)
}

下限と上限のカットオフをハードコーディングせずに、必要な機能を実現するにはどうすればよいですか?

Answer 1

paste文字列を連結してパターンを作成するために使用します。

removeByLength<- function(text,lowerCutOff=2,upperCutOff=12){
  pattern <- paste("\\b[a-zA-Z0-9]{1,",lowerCutOff,
                 "}\\b|\\b[a-zA-Z0-9]{",upperCutOff,",}\\b", sep="")
  text <- gsub(pattern, " ", text)
  return(text)
}