Update getPMIDs.R

change str_replace to str_replace_all