Code showing up randomly in Output Data Table

[jaxona]

I'm trying to produce a table showing CAPEX on a per-site basis. However, there is an error that keeps appearing when I include a particular site. Code appears in between two numbers.

Here is the code chunk:
formattable(TopNSitesTable, align = "c",
list(Rank Diff = formatter("span", ~ icontext(sapply(Rank Diff, function(x) if (x < 0) "arrow-down" else if (x > 0) "arrow-up" else "-"), Rank Diff)),
Business_Type = formatter("span",TopNSitesTable$Business_Type),
R13PGBV = formatter("span",currency(TopNSitesTable$R13PGBV, digits=0)),
CPGBV = formatter("span",currency(TopNSitesTable$CPGBV, digits=0)),
Difference = formatter("span",currency(TopNSitesTable$Difference, digits=0))))

Any thoughts on this?