У меня есть список:
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)