#檢測一個字符串中，是否包含某個子串，是返回T,否返回Frequire(stringr)

require(stringr)
test <- c("這裏有天氣熱敏感冒","好天氣","感冒了，也要加油","感？冒","","不是","感冒？不是！")
str_detect(test,"感冒")

num_dec <- 0;loops <-1
while(loops <= length(test)){
  if(is.na(test[loops])){
    loops = loops + 1
  }else{
    if(str_detect(test[loops],"感冒")){
      num_dec = num_dec + 1
      print(loops) 
      loops = loops + 1
    }else{loops = loops + 1}
  }
}
print(num_dec)

　　輸出結果有：print(loops)為包含“感冒”這個詞的元素 的坐標。print(num_dec)：為總共包含這個詞的元素的個數

R: 對向量中的每個元素，檢查其是否包含某個“單詞”