求R脚本全量运行的宏/快捷键及批量处理105个文件的方法

Hey there! Let's tackle your two R workflow problems one by one—first the quick shortcut/macro fix to run your whole script instantly, then the big batch processing optimization to eliminate all that tedious manual editing.

内置快捷键（最快方法） #

In RStudio, you can run your entire script in one shot with:

• Windows/Linux: Ctrl + Shift + Enter
• Mac: Cmd + Shift + Enter
  This executes every line in your active script pane right away, no extra setup required.

自定义宏（for more complex workflows） #

If you want to bind a custom sequence (like running the script plus saving your workspace), you can record a macro:

1. Go to Tools > Record Macro
2. Perform the actions you want (e.g., run the full script, save your current file)
3. Click Stop Recording, name your macro (e.g., "RunFullScript")
4. Bind it to a shortcut via Tools > Modify Keyboard Shortcuts—search for your macro name and assign a key combo like Ctrl+Alt+R

Manual updating of variable and number 105 times is a total drag—let's automate this with a reusable function and batch processing. Here's a step-by-step solution:

核心思路 #

We’ll wrap your calculation logic into a function, then loop through all 105 files and their corresponding result rows. This way, you run one block of code instead of editing and rerunning 105 separate times.

Step 1: Prepare your file list and result rows #

First, create lists that map each FileX to its target row in the Results datatable:

# Generate list of File1 to File105
input_files <- paste0("File", 1:105)
# Corresponding rows 1 to 105 in the Results table
target_rows <- 1:105

Step 2: Wrap your calculation logic into a function #

Take all the code you run after setting variable and number, and put it inside a function that accepts the file name and target row as arguments:

process_file <- function(file_name, result_row) {
  # Load the specified datatable (adjust this if your files are stored externally!)
  # If File1-File105 are already in your R environment:
  data_table <- get(file_name)
  
  # --- Replace this section with YOUR actual calculation logic ---
  # Example calculation (swap this with your real code)
  computed_value <- mean(data_table$key_metric) * 1.2  # Just a dummy example!
  
  # Write the result to the specified row in Results
  Results[result_row, "output_column"] <- computed_value  # Replace "output_column" with your actual column name
  
  # Optional: Print progress to track where you are
  cat(sprintf("Finished processing %s, wrote to row %d\n", file_name, result_row))
}

Note: If your File1-File105 are stored as external files (e.g., CSV/Excel), replace get(file_name) with read.csv(paste0(file_name, ".csv")) or the appropriate read function for your file type.

Step 3: Run the batch process #

Use mapply (base R) or purrr::map2 (tidyverse) to run the function for every file-row pair:

# Base R method (no extra packages needed)
mapply(process_file, input_files, target_rows)

# Tidyverse method (install purrr first if you haven't)
# install.packages("purrr")
# library(purrr)
# map2(input_files, target_rows, process_file)

Bonus: Error Handling #

If some files might cause issues (e.g., missing data), add tryCatch to the function to avoid crashing the whole batch:

process_file <- function(file_name, result_row) {
  tryCatch({
    data_table <- get(file_name)
    # Your calculation here
    computed_value <- mean(data_table$key_metric) * 1.2
    Results[result_row, "output_column"] <- computed_value
    cat(sprintf("Success: %s (row %d)\n", file_name, result_row))
  }, error = function(e) {
    cat(sprintf("Failed to process %s: %s\n", file_name, e$message))
  })
}

This setup will handle all 105 files in one go—no more manual edits!

内容的提问来源于stack exchange，提问作者Maximilian Hüttner