geomoose | still active. Current development | Build Tool library

I am having an issue with some R code. I am trying to classify text values from a column into a new column. My data is a collection of tags used on the gis.stackexchange site, which has ~2,500 rows. My goal is to classify the tags as either COTS, FOSS, or other. Reviewing the tags there are two "scenarios"; tags that are used once (i.e. anaconda) and tags that have a term used multiple times (i.e. qgis, qgis-desktop, qgis-server, etc.). This scenario is true for both COTS and FOSS tags.

My approach was to do the following:

1. create a vector with all tags that represent FOSS
2. create a vector with all tags that represent COTS
3. create a new column called software and code using ifelse
4. ifelse - where the tagName is %in% FOSS then code as FOSS
5. in the ifelse use grep on the FOSS vector to pattern match tags that may be used multiple times (i.e. qgis) and code as FOSS
6. Repeat this for COTS

I am getting an issue where the last grep (COTS) is being coded as FOSS. Obviously there is something wrong, but I cannot seem to figure out the issue. Below is the code and a link to the source data.

Shared folder with source CSV

Tag vectors -- FOSS and COTS