刷新R控制台中的多行进度条

Question

我使用以下代码在（bash）终端中打印并更新进度条到R控制台：

ProgressBar <- function (x, max = 100)
{
    percent <- x / max * 100
    cat(sprintf('\r\t[%-50s] %d%%',
    paste(rep('=', percent / 2), collapse = ''),
    floor(percent)))
    if (x == max)
    cat('\n')
}

我的问题是我该如何做同样的事情，但在整个更新过程中显示的栏下面有一个额外的换行符？这是否可能以独立于平台的方式实现？

我尝试在第一个'\n'语句的末尾添加cat，但这会在新行上打印每个更新，而不是刷新原始行。