R语言异常处理求助：PDF表格提取下标越界，tryCatch未生效

你的代码主要问题出在变量赋值逻辑和tryCatch的作用方式上，导致异常处理未生效，具体问题点：

1. 正常分支的变量覆盖：你在tryCatch的正常块中用cost_price_list <- files[i][[1]][[3]]把整个cost_price_list变量替换成了单个值，而非往列表中添加元素。后续循环中i>1时，cost_price_list是单个值，访问cost_price_list[i]必然触发越界错误。
2. 错误分支的索引无效：错误块中给cost_price_list[i]赋值，但初始的cost_price_list是空列表，索引赋值会因为长度不足失效。
3. 冗余的索引写法：files[i][[1]]等价于files[[i]]，冗余写法增加了代码复杂度。
4. 数据框类型不匹配：初始数据框是字符型，但直接赋值NA会被转成字符串"NA"，而非真正的缺失值。

all_data <- eventReactive(input$done, {
    req(input$files)
    # 初始化指定长度的空列表，避免索引越界
    cost_price_list <- vector("list", length(input$files$datapath))
    sell_price_list <- vector("list", length(input$files$datapath))
    
    files <- lapply(input$files$datapath, extract_tables)
    
    # 用seq_along遍历更安全，避免length为0时出错
    for (i in seq_along(input$files$datapath))
    {       
        tryCatch(
            {
                # 简化索引，获取当前文件的提取结果
                table_data <- files[[i]]
                # 提取目标表格数据，存入列表对应位置
                cost_price_list[[i]] <- table_data[[3]]
                sell_price_list[[i]] <- table_data[[4]]
            },
            error = function(cond) {
                # 赋值字符型NA，匹配数据框列类型
                cost_price_list[[i]] <- NA_character_
                sell_price_list[[i]] <- NA_character_
            }
        )           
    }
    # 统一转换为数据框，确保类型正确
    df <- data.frame(
        cost_price = unlist(cost_price_list),
        sell_price = unlist(sell_price_list),
        stringsAsFactors = FALSE
    )
    df
})

• 提前初始化列表：用vector("list", length(...))创建指定长度的空列表，确保循环中[[i]]赋值不会越界。
• 列表元素赋值：正常分支中用cost_price_list[[i]]往列表的对应位置添加元素，而非覆盖整个变量。
• 明确缺失值类型：用NA_character_生成字符型缺失值，避免自动转成字符串"NA"。
• 简化循环逻辑：用seq_along替代1:length(...)，处理空输入时更安全。
• 避免逐行赋值数据框：循环结束后统一转换为数据框，比逐行添加更高效且类型更可控。

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