Power Bi & R Script Problem with Stringr displacing columns unintentionally

I built an r script using stringr that should build 2 columns, Salesforce & CRM1. It is performing as expected except for in some rows, it is moving & deleting data from cells that are not being called in the following code: 

library(stringr)

SFDC <- c("SFDC|Salesforce")

Dynamics <- c("Dynamics|Microsoft|365")

Oracle <-c("Oracle|On Demand|Ondemand")

SAP <- c("SAP|Siebel")

InHouse <- c("in house|internal|inhouse|proprietary")

Unknown <- c("don't know|unknown|not sure|not mention|can't remember")

None <- c("none|no crm|N/A")

dataset$salesforce <- str_replace_all(

  str_replace_all(

  str_replace_all(

  str_replace_all(

  str_replace_all(

  str_replace_all(

  str_replace_all(dataset$new_crmused, regex(SFDC, ignore_case=TRUE), "Salesforce"),

      regex(Dynamics, ignore_case=TRUE), "Dynamics"),

      regex(Oracle, ignore_case=TRUE), "Oracle"),

      regex(SAP, ignore_case=TRUE), "SAP Siebel"),

      regex(InHouse, ignore_case = TRUE), "In House System"),

      regex(Unknown, ignore_case = TRUE), "Unknown"),

      regex(None, ignore_case=TRUE), "None")

dataset$CRM1 <- str_extract(dataset$salesforce,"Salesforce|Dynamics|Oracle|SAP Siebel|In House System|Unknown|None")

Does anyone have any ideas why it is doing this?