我对R & scripting相当陌生，我正在尝试编写一个脚本，将Excel文件中的每个工作表转换为自己的CSV文件。这个脚本将用于许多Excel文件，这些文件的工作表数量，每行/列数不同，并且可能有空值的列。此外，除了我自己，其他人可能也会使用这个脚本。所以我不想使用太多的软件包，他们将不得不安装。
以下是我希望脚本做的事情的概述：
1.接受用户输入的文件名
1.检查文件的扩展名是.xls还是.xlsx
1.将正确的扩展名（.xls或.xlsx）附加到文件名
1.读取excel文件中的每张工作表
1.保持列数据类型相同（我稍后会详细解释）
1.将每个工作表写入其自己的CSV文件
我在网上搜索并尝试了各种方法来将excel工作表转换为csv文件，但我发现的大多数方法都没有太大的运气。其中一种方法是Yifu Yan's answer here。然而，正如他提到的那样，列类型没有正确转换。
我尝试修改Yifu Yan的代码，试图自己解决列类型转换，但没有成功。下面是我使用的代码（使用readxl和purrr包）：

file <- readline("Enter file name: ")
# Use if/else, for, or while loop to check file extension, which will replace “.xlsx” in the following line with the determined extension
path <- paste0(file, “.xlsx”)
sheet_names <- readxl::excel_sheets(path)
df <- purrr::map(sheet_names,  ~readxl::read_excel(path, .x, col_types = "guess", col_names = FALSE))
purrr::walk2(df, sheet_names, write.csv(.x, paste0(file, "-", .y, ".csv"), col_names = FALSE))

字符串
当我用Excel文件测试代码时，我发现有些列转换得很好，但有些列没有。下面是转换后数据应该是什么样子的例子：
| 第1栏|第2栏|第3栏|第4栏|第5栏|
| --|--|--|--|--|
| 二二三三点零九| 501 | 1234567 |AB| 2011年3月20日6：09：17|
| 1122.09| 502 | 1234569 |AC| 2011年3月20日6：12：25|
它实际上是什么样子的：
| 第1栏|第2栏|第3栏|第4栏|第5栏|
| --|--|--|--|--|
| 2233.090000000001| 501 | 1234567 |AB| 40622.25644675926|
| 1122.090000000002| 502 | 1234569 |AC|电话：40622.258622685185传真：40622.258622685185|
我需要帮助的三件事：
1.如何确保列类型/值在转换过程中保持完全相同
1.我可以使用什么函数来检查文件扩展名（如果需要的话，我可以自己弄清楚如何编写循环）
1.如果可能的话，使用base而不是purrr。我更希望唯一的非base包是readxl（或xlsx），但如果不是也没关系
编辑：因为我不能得到任何其他的工作，而只使用一个包（除了工具），我将只使用readxl和tidyverse（包括readr和purrr）。不理想，但我需要它。