Question

我正在设计一个应用程序（闪亮的），供人们从Excel上传一些数据。我宁愿从xlsx导入（因为我的客户端不习惯使用csv）而且我被日期格式阻止。我希望用户选择自己的日期格式（如“ymd”，“ymd_hms”，“mdy_hm” ）来自导入的字符串。

问题：我测试的大多数excel库都返回一个数字日期（43520.22）或自动识别日期格式，或多或少成功（如果它没有失败的秒数）。你能想到一个带有.xlsx的导入函数，并以字符格式“按原样”返回日期列。

我试过openxlsx :: read.xlsx（）和read_xls。我还想过用数字导入所有内容然后翻译成日期，但似乎根据excel版本，原始日期可能会有所不同（我的用户来自不同的国家/地区）。

一些可能的格式：

我在闪亮的应用程序中看到它的方式：

将产生的代码行：

<import_xlsx_function>(input$file$datapath) %>% mutate(datetime = datetime %>% lapply(input$CHOICE_dateformat) %>% do.call(c, .))