R语言中变量取值为字符型，但是现在需要做行数值求和，不知怎么写代码

如图所示，周一至周五的变量值都为“8889起”，是字符型，但是我现在想做行求和算一周的报价总价，不是数值型无法进行行求和，请问怎么执行？

https://zhuanlan.zhihu.com/p/30981954?from_voters_page=true