Hello,
thank you very much for your reply, Rui Barradas.
> In my workspace everything was converted either to non-empty strings or
> NULLs.
> This is how to do it.
>
>
> r1 <- lapply(r, function(x) x[nchar(x) > 0])
> r1 <- lapply(r1, function(x) if(length(x)) x else NULL) # second pass
> country.list <- r1[ -which(sapply(r1, is.null)) ]
> country.list
Thank you.
I tried it but I've still got the same result as before, unfortunately:
> x <- readLines("sabina.txt")
> s <- strsplit(x, ";[[:space:]]\\[")
> r <- lapply(s, function(x) sapply(strsplit(x, "[[:blank:]]"), tail, 1))
> length(r)
[1] 20
> r[[20]] <- NULL
> r[[19]] <- r[[19]][ -length(r[[19]]) ]
> r1 <- lapply(r, function(x) x[nchar(x) > 0])
> r1 <- lapply(r1, function(x) if(length(x)) x else NULL) # second pass
> country.list <- r1[ -which(sapply(r1, is.null)) ]
> country.list
list()
> After removing the nulls, in my workspace the list numbers are
> different, but you could remove unwanted values along the lines of
>
> bad <- -length(r[[18]])
> r[[18]] <- r[[18]][ -bad ]
>
> Note that you could do this to 'country.list', it might be simpler.
OK, which step would this be in the order above?
And how / where do I get the country name that was incorrectly replaced by the
Article Identifier?
> If it all works correctly, adjustments can be made, if not it might be
> premature. I don't know.
I see.
> See how it goes, so far.
See above, please.
> You're welcome,
Thank you!
Faithfully yours,
Sabina Arndt
PS: I cut the old messages to save list space.
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
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.
