翻訳している時に残りの行数を数えたい

長い翻訳作業を進めているとモチベーションを保つのが課題です。
モチベーションを保つために進捗の可視化は必須です。
Rmdからmdファイルを作成する際についでに残りの行数をカウントする関数を書きました。
翻訳が終わった行数に適当な文字列（デフォルトは99999）を書いておくと残りの行数をカウントします。
よろしくご査収ください。

getRemain <- function(f,trgchar="99999"){
knitr::knit2html(f)
d <- suppressWarnings(readLines(f))
count <- length(d)-grep(trgchar,d)
sprintf("残り%s行です",count)
}