如何在 RStudio 中重命名多個 .RDS 文件

Question

我正在嘗試加載和重命名保存為.rds幾個 Ggplot 圖
下面的代碼工作正常，但它為我不需要的變量提供了額外的后綴.rds 。
我想要在 R 環境中加載的變量命名為ggplot_graph1而不是ggplot_graph1.rds

Objects_Selected <- list.files(pattern = ".rds")
    
    lst1 <- lapply(Objects_Selected, function(RDS_File) {
      temp_file <- readRDS(RDS_File)
    
    })
    
    # Objects_Selected <- gsub(".rds", "", Objects_Selected)
    
    for(RDS_File in Objects_Selected){
      temp_file <- readRDS(RDS_File)
      assign(RDS_File, temp_file)
    }

Answer 1

@MrFlick 非常感謝！
這是正確答案：

Objects_Selected <- list.files(pattern = ".rds")
    
    lst1 <- lapply(Objects_Selected, function(RDS_File) {
      temp_file <- readRDS(RDS_File)
    
    })
    
    # Objects_Selected <- gsub(".rds", "", Objects_Selected)
    
    for(RDS_File in Objects_Selected){
      temp_file <- readRDS(RDS_File)
      assign(gsub("\\.rds$", "", RDS_File), temp_file)
    }