[R] Remove specific rows from nested list of matrices

[Bert Gunter]

If you learn to use dput() to provide useful examples in your posts, you
are more likely to receive useful help. It is rather difficult to make much
sense of your messy text, though some brave soul(s) may try to help.

Bert Gunter

"The trouble with having an open mind is that people keep coming along and
sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )


On Fri, Nov 2, 2018 at 8:00 AM Ek Esawi <esawiek using gmail.com> wrote:

> Hi All,
>
> I have a list that is made up of nested lists, as shown below. I want
> to remove all rows in each sub-list that start with an empty space,
> that’s the first entry of a row is blank; for example, on
> [[1]][[1]][[1]] Remove row 4,on [[1]][[1]][[3]] remove row 5, on
> [[1]][[2]][[1]] remove row 6, etc.. All rows start with 2 digits/ 2
> digits. My formula works on individual sublist but not the whole
> list.. I know my indexing is wrong, but don’t know how to fix it.
>
>
> > FF
>
> [[1]]
> [[1]][[1]]
> [[1]][[1]][[1]]
> [,1]    [,2]   [,3]    [,4] [,5]
> [1,] "30/20"   "AAAAAAAA" “    “   "-89"
> [2,] "02/20"   "AAAAAAAA” “    “   "-98"
> [3,] "02/20"   “AAAAAAA” “    “   "-84"
> [4,] “  “ “  “   “
> [[1]][[1]][[2]]
> [,1]    [,2]
> [1,] "02/23" “AAAAAAAA” : 29" “
> [2,] "02/23" “AAAAAAAA” ." “
> [3,] "02/23" “AAAAAAAA” " “
> [4,] "02/23" “AAAAAAAA” "
> [[1]][[1]][[3]]
> [,1]    [,2]    [,3] [,4] [,5] [,6] [,7]
> [1,] "01/09" “AAAAAAAA"    “   “   “   "53"
> [2,] "01/09" “AAAAAAAA” "   “   “   “   "403"
> [3,] "01/09" “AAAAAAAA” "   “   “   “   "83"
> [4,] "01/09" “AAAAAAAA” "   “   “   “   "783"
> [5,] “  “  “AAAAAAAA”  3042742181"   “   “   “   “
> [[1]][[2]]
> [[1]][[2]][[1]]
> [,1]  [,2] [,3] [,4] [,5]
> [1,] “    “   “   “   “AAAAAAAA” "
> [2,] "Standard Purchases"  “   “   “   "
> [3,] "24/90 "AAAAAAAA” “   "243"  "
> [4,] "24/90 "AAAAAAAA” "   "143"  "
> [5,] "24/91 "AAAAAAAA” " “   "143" “
> [6,] “    “   “   “   "792"
> [[1]][[2]][[2]]
> [,1]    [,2]
> [1,] "02/23" “AAAAAAAA”: 31" “
> [2,] "02/23" “AAAAAAAA”." “
> [3,] "02/23" “AAAAAAAA” " “
> [4,] "02/23" “AAAAAAAA”
> [5,] "02/23" “AAAAAAAA”
> [6,] "02/23" “AAAAAAAA” 20"
> [7,] "02/23" “AAAAAAAA”  “
> [8,] "02/23" “AAAAAAAA” "33"
> [[1]][[3]]
> [[1]][[3]][[1]]
> [,1]    [,2]
> [1,] "02/23" “AAAAAAAA”: 28" “
> [2,] "02/23" “AAAAAAAA”." “
> [3,] "02/23" “AAAAAAAA” " “
> [4,] "02/23" “AAAAAAAA” "
> [[1]][[3]][[2]]
> [,1]    [,2]    [,3]    [,4] [,5] [,6] [,7]    [,8]    [,9]
> [1,] "02/23" “AAAAAAAA” " “   “   "53" "
> [2,] "02/24" “AAAAAAAA” " “   “   "
> [3,] “  “  “  “   “   “   “  “  "1,241"
> [4,] "02/24" "AAAAAAAA”  “   "33”
>
> My Formula,:
>
> G <- lapply(FF, function(x) lapply(x, function (y) lapply(y,
> function(z)  z[grepl("^[0-9][0-9]/",z[,1]),])))
>
> The error: Error in z[, 1] : incorrect number of dimensions
>
>
>
> Thanks in advance--EK
>
> ______________________________________________
> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]