如何将工作目录中最新CSV文件导入RStudio？原方法失效求助

Hey there! Let’s work through this CSV import issue together—since your workflow used to work, it’s likely just a small tweak needed to get it back on track. Here’s a step-by-step fix for both grabbing the latest file and extracting the date from its name:

First, let’s make sure we’re correctly identifying the newest file in your directory. A common pitfall is not sorting files by modification time, which might lead to grabbing the wrong one. Try this code:

# Get all CSV files (with full file paths)
csv_files <- list.files(pattern = "\\.csv$", full.names = TRUE)

# Sort files by when they were last modified (newest first)
sorted_files <- csv_files[order(file.info(csv_files)$mtime, decreasing = TRUE)]

# Pick the very latest file
latest_csv <- sorted_files[1]

Quick checks here:

• Run getwd() to confirm you’re in the correct working directory—if not, use setwd("/path/to/your/folder") to switch.
• If your filenames have uppercase .CSV extensions, add ignore.case = TRUE to list.files() to catch those too.

Next, let’s strip out the redundant parts and keep only the date. The exact code depends on your filename structure, so I’ll cover two common scenarios:

Scenario 1: Date in YYYY-MM-DD format (e.g., sales_report_2024-05-20.csv) #

Use regex to pull the date string out:

# Using stringr (tidyverse-friendly)
library(stringr)
file_date <- str_extract(basename(latest_csv), "\\d{4}-\\d{2}-\\d{2}")

# Or base R if you don't want to load extra packages
file_date <- regmatches(basename(latest_csv), regexpr("\\d{4}-\\d{2}-\\d{2}", basename(latest_csv)))

Scenario 2: Date in YYYYMMDD format (e.g., 20240520_daily_data.csv) #

Adjust the regex to match 8 consecutive digits:

file_date <- str_extract(basename(latest_csv), "\\d{8}")

Note: basename() removes the full file path so we only work with the filename itself—this prevents regex from accidentally matching numbers in the directory path.

Finally, import the file and optionally attach the extracted date as a column for your analysis:

# Import the latest data
latest_data <- read.csv(latest_csv)

# Add the date as a column (convert to Date type for easier time-based analysis)
latest_data$file_date <- as.Date(file_date)

Troubleshooting extra issues #

If it’s still not working:

• Check if the new CSV has different formatting (e.g., delimiter changed from , to ;—use read.csv2() for semicolons, or specify sep = ";").
• Verify file permissions: sometimes new files might have restricted access—right-click the file to confirm R can read it.
• Look for special characters in filenames (spaces, accents, etc.)—if present, use list.files(pattern = ".csv$", full.names = TRUE, include.dirs = FALSE) to ensure they’re captured.

内容的提问来源于stack exchange，提问作者jimiclapton