R通過唯一名稱閃亮保存文件

Question

我開發了一個Shiny應用程序，用戶可以選擇保存機器學習模型（以后可以使用它們）。 這些模型將保存在默認的閃亮目錄中。

問題在於，由於要保存的模型文件的名稱不是唯一的，因此當多個用戶使用該應用程序時，該文件可能會被覆蓋。

我希望文件以唯一的名稱保存，並且用戶能夠將其特定文件加載回去

下面是我正在使用的代碼

# Save model to be used later

   .jcache(m1$classifier)
    observeEvent(input$save, {
      #delete previous model if it exists in folder
      fn <- "m1"
      if (file.exists(fn)) file.remove(fn) 
      save(m1, file = "D:\\Dropbox\\Users\\Myname\\m1")
    })

#Load model saved earlier
load(file="m1")

Answer 1

有一個名為uuid的軟件包可以幫助解決這個問題：

install.packages("uuid")

# This function will create a unique string for you that you can use as your filename
fn <- uuid::UUIDgenerate()

因此，我建議每次要保存模型時都生成一個新文件名，並將其存儲在一個變量中，當您要重新加載模型時，該變量可以被引用。

load(file=fn)