Thank you Jeff and Bert. I know i have to use dput add provide a
reproducible example. The problem is that the output,is huge, has many
nested lists, and the info is private.
Here is the first line of dput(FF) if it helps:
dput(FF)
list(list(list(structure(c("12/30 12/30", "01/02 01/02", "01/02 01/02",
Thanks again--EK
On Fri, Nov 2, 2018 at 11:21 AM Jeff Newmiller <jdnew...@dcn.davis.ca.us> wrote:
>
> Can you supply the output of
>
> dput(FF)
>
> ?
>
> On November 2, 2018 8:00:08 AM PDT, Ek Esawi <esaw...@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@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.
>
> --
> Sent from my phone. Please excuse my brevity.
______________________________________________
R-help@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.
