Вывод консоли приемника в файл .txt из функции

Мне нужно заполнить файл .txt при запуске кода с вложенными функциями. Я использую sink() для этой цели. Вывод состоит из а) текстовых сообщений, б) строк данных. Мне не удается распечатать кадры данных из вложенной функции:

sink("log.txt")

cat("Some message")          # Successfully prints to log.txt
head(some_df)                # Successfully prints to log.txt

some_fun = function(x){
    # ...
    cat("Another message")   # Successfully prints to log.txt
    head(another_df)         # Nothing gets printed to log.txt
    # check that another_df is not empty:
    cat(nrow(another_df))    # Successfully prints to log.txt (>0) 
    # ...
}
some_fun(x=0)

sink()

Так как же правильно это сделать?