我有一个列表：
library(tabulizer)
library(miniUI)
pdf1 <- "https://www.aphis.usda.gov/import_export/plants/manuals/ports/downloads/plants_for_planting.pdf"
Section1 <- extract_tables(pdf1,c(284:340),spreadsheet = TRUE)
列表中的每个元素都有不同的尺寸。我想将每个元素修剪为仅具有最大列数-从而修剪最后两列。
我尝试过：
ifelse(lengths(Section1) > 4, Map(function(x) x[,1:(length(x)-2), drop=FALSE], Section1), Section1)