列出mongolite中的upsert

Question

无法使用mongolite更新/向上插入R中具有列表字段的集合。我尝试了不同的选择，但似乎都不起作用。

library("recommenderlab")
library(stringi)
data("MovieLense")
MovieLense100 <- MovieLense[rowCounts(MovieLense) >100,]
MovieLense100
train <- MovieLense100[1:50]
rec <- Recommender(train, method = "UBCF")
rec
pre <- predict(rec, MovieLense100[101:105], n = 10)
as(pre, "list")
list1 = as(pre, "list")
list1
m$update(query = '{"movieID": 294}', update = paste0('{"$set": {"moviesList" : ', list1$`294`, '}}'))

Error: Invalid JSON object: {"$set": {"moviesList" : Raiders of the Lost Ark (1981)}}{"$set": {"moviesList" : Shawshank Redemption, The (1994)}}{"$set": {"moviesList" : Terminator 2: Judgment Day (1991)}}{"$set": {"moviesList" : Princess Bride, The (1987)}}{"$set": {"moviesList" : Empire Strikes Back, The (1980)}}{"$set": {"moviesList" : Back to the Future (1985)}}{"$set": {"moviesList" : Silence of the Lambs, The (1991)}}{"$set": {"moviesList" : Indiana Jones and the Last Crusade (1989)}}{"$set": {"moviesList" : Terminator, The (1984)}}{"$set": {"moviesList" : Alien (1979)}}