r - 在 R 中，如何在主题模型中编写数据函数？

Question

今天我学习 R 中的主题模型。第一个问题是如何加载下面的数据集。我发现 R 中有一些预先构建的数据集。但是如何在 R 中保存新构建的数据集，以便我可以像使用其他数据一样使用它，例如原油、acq.... 如何在数据中编写 adtm（ ) 在以下几行中？以及如何保存 adtm 以便下次我可以像原油一样使用它？非常感谢。你能帮我么？

library(tm)
library(topicmodels)
setwd('F://_topic//economist//use//articledir') 
adataset  <-Corpus(DirSource("F://_topic//economist//use//articledir"), readerControl = list(language="lat")) 
adataset <- tm_map(adataset, removeNumbers)
adataset <- tm_map(adataset, removePunctuation)
adataset <- tm_map(adataset , stripWhitespace)
adataset <- tm_map(adataset, tolower)
adataset <- tm_map(adataset, removeWords, stopwords("english")) 
adtm <-DocumentTermMatrix(adataset) 
adtm <- removeSparseTerms(adtm, 0.75)

data(adtm, package = "topicmodels")
# error, no adtm dataset, how to write here.
best.model  <- lapply..