Cat de R para acentos con LaTeX

texto <- "Ca\\'{\\i}da f\\'{\\i}sica de personas vs. operar con m\\'aquinas (30.1 \\%)"
cat(texto,file="",sep="\n", append=FALSE)
## Ca\'{\i}da f\'{\i}sica de personas vs. operar con m\'aquinas (30.1 \%)