Error in KableExtra when adding percentage signs in cells

Question

I have the following table in an RMarkdown file using the kableExtra package

library(kableExtra)
library(tidyverse)

type <- c(\'Portfolio\',\'Ben