在R中加载csv文件并在所有会话中共享?

Question

我有一个闪亮的应用程序，使用csv文件生成不同的数字。我上传我的应用程序在我的个人linux服务器使用shine -server。我在我的应用程序

中使用这个结构

• 全球。R
• ui。R
• 服务器。R

Inside myglobal。R我有这一行，它帮助我加载和读取我的csv文件

df <- read_csv("../Desktop/covid_2021-02-15.csv")

但是我的应用程序非常慢，我在全局读取对象。R脚本，只读一次，所有会话共享

是否有其他方式加载该数据帧以获得更高效的应用程序?

Answer 1

除了Gregor和HubertL的评论:

加载较大的CSV文件会导致加载速度变慢。我有同样的问题，并更改为r二进制文件(rds)与saveRDS()和readRDS()。作为第一步，您可以尝试rds文件，看看问题是否得到解决。要检查是否存在性能差异，您可以使用system.time()。返回计算任意R表达式所花费的时间。

在你的例子中:

df <- read_csv("../Desktop/covid_2021-02-15.csv")
# Save an object to a file
saveRDS(df, file = "my_data.rds")
# Restore the object
readRDS(file = "my_data.rds")