如何测试R中的EOF标志？

# 首先，确保安装了足够数量的库
install.packages("readr")
install.packages("stringr")

# 加载必要的库
library(readr)
library(stringr)

# 设置待测试的文本文件路径
test_file <- "./eof_test_file.txt"

# 使用 readLines 函数读取文件，并将其转换为字符向量
file_contents <- readLines(test_file)

# 使用 str_detect 函数测试字符向量中的 EOF 标志
is_eof <- str_detect(file_contents, string = "^\\s*$")

# 打印测试结果，显示是否检测到 EOF 标志
message(is_eof)