parse_tag_info.r

parse_tag_info.r

# separates the vemco column formatting of freq-codespace-tagid, then returns the original dataframe with the codespace and tagids as separate columns

parse_tag_info <- function(df, tagcol = "TagID") {
  names(df)[names(df) == tagcol] <- "SepTagID" # rename the old combined tagid col
  out <- as.data.frame(do.call(rbind, strsplit(as.character(df$SepTagID),'-')), 
                       stringsAsFactors = FALSE)
  
  colnames(out) <- c("freq", "CodeSpace", "TagID")
  final <- cbind(df, out)
  drops <- c("freq", "SepTagID")
  final <- final[ , !names(final) %in% drops]
  final$CodeSpace <- as.integer(final$CodeSpace)
  final$TagID <- as.integer(final$TagID)
  return(final)
  }