R语言：运行tibble中Excel提取的代码及删除含特定文本行

嗨，作为R新手碰到这些问题太正常了，我来一步步帮你搞定～

一、正确导出代码为可直接source的文本文件 #

你之前用write.csv导出会带行号和引号，是因为CSV格式本身就是带分隔符和引号的表格格式，而我们需要的是纯代码文本。试试下面的方法：

首先，先确保你已经把Excel里的代码读入了tibble（假设这个tibble叫code_tbl）：

library(readxl)
# 读取Excel指定区域的代码
code_tbl <- read_excel('C:/Users/Desktop/test.xlsm', sheet='Sheet1', range = 'F8:F100', col_names=FALSE)

接下来把代码列转成字符向量，再用writeLines写入文件——这会生成纯文本代码，没有多余的行号和引号：

# 提取代码列转为字符向量
code_lines <- as.character(code_tbl$X1)
# 写入纯文本文件
writeLines(code_lines, con = "C:/Users/Desktop/run_code.R")

或者用cat函数也能达到同样效果：

cat(code_lines, sep = "\n", file = "C:/Users/Desktop/run_code.R")

现在你直接运行source("C:/Users/Desktop/run_code.R")就能执行所有代码片段啦！

二、删除tibble中包含特定文本的行 #

要删掉包含"file100"的行，推荐用tidyverse工具链（更直观），或者base R也可以：

方法1：用tidyverse（dplyr + stringr） #

先加载需要的包，然后用filter结合str_detect过滤行：

library(dplyr)
library(stringr)

# 过滤掉包含"file100"的行，保留其他行
clean_code_tbl <- code_tbl %>%
  filter(!str_detect(X1, "file100"))

这里!表示“取反”，str_detect(X1, "file100")会判断每行代码是否包含指定文本，加!就保留不包含的行。

方法2：用base R #

如果不想加载额外包，用grepl函数也能实现：

# 过滤行，drop=FALSE确保结果仍是tibble格式
clean_code_tbl <- code_tbl[!grepl("file100", code_tbl$X1), , drop = FALSE]

处理完之后，你可以用上面的导出方法把清理后的代码保存成可执行文件。

内容的提问来源于stack exchange，提问作者pp12345