在R中，可以使用flextable包来创建和修改表格。要保留flextable中的前导零，可以使用sprintf()函数来设置单元格的格式。

下面是一个示例代码，演示如何在flextable中保留前导零：

library(flextable)

# 创建一个包含数字的数据框
df <- data.frame(
  ID = c(1, 2, 3, 4),
  Value = c(001, 010, 100, 005)
)

# 创建一个空的flextable对象
ft <- flextable()

# 添加表头
ft <- add_header_lines(ft, "ID", "Value")

# 循环遍历数据框中的每一行
for (i in 1:nrow(df)) {
  # 将每个单元格的值转换为字符型，并保留前导零
  id <- sprintf("%03d", df$ID[i])
  value <- sprintf("%03d", df$Value[i])
  
  # 添加行到flextable中
  ft <- add_row(ft, id, value)
}

# 打印flextable
print(ft)

在上述代码中，我们使用sprintf()函数将每个单元格的值转换为字符型，并使用%03d格式将数字转换为字符串。%03d的意思是将数字格式化为3位带前导零的整数。

这样，通过循环遍历数据框中的每一行，我们可以将带有前导零的值添加到flextable中，并保留这些前导零。最后，我们打印flextable对象以查看结果。