我有一个要删除的具有稀疏非数字值的元素列表。我想使用一个功能来搜索列表中的非数字元素，然后将其删除。
由于我随机生成多个列表，因此无法使用简单的基本功能
company_id函数mylist[[-c("element.I.dont.want")]]
不起作用。
这是我有一个列表的示例：
mylist[[is.numeric(mylist)]]这是我想要的列表：
mybadlist <- list(c(1,2), c(3,4), c("error here","error here"), c(2,2))