Update getPMIDsByKeyWords.R

change str_replace to str_replace_all