Last char of a string in a list -> list of strings

L <- c("!H*L", "L%", "%L", "H*L", "L%", "%L", "H*L", "H*L", "L%",

sub(".*([^*_!%0])[*_!%0]*$", "\\1", x)

Dear list,

This seems like a very simple problem, but I am failing to loose a
dimension (I think).
I have list, like this:

...
[2072] "!H*L" "L%" ? "%L" ? "H*L" ?"L%" ? "%L" ? "H*L" ?"H*L" ?"L%"
"%L" ? "H*L" ?"!H*L" "L%" ? "%L" ? "%L" ? "%L" ? "%L" ? "H*L" ?"!H*L"
[2091] "L%" ? "H*" ? "%L" ? "H*L" ?"L_%" ?"%L" ? "%H" ? "%H" ? "!H*L"
"%H" ? "H*" ? "%H" ? "%H" ? "H%" ? "H*" ? "!H*L" "H*L" ?"!H*L" "H*"
[2110] "H*L" ?"L_%" ?"%L" ? "%L" ? "H*L" ?"L*H" ?"H%" ? "%H" ? "L*H"
"H%" ? "%H" ? "H*L" ?"%H" ? "%L" ? "H*L" ?"%H" ? "%L" ? "H*L" ?"L%"
[2129] "%L" ? "H*L" ?"!H*L" "L%" ? "%L" ? "H*L" ?"%L" ? "H*L" ?"%H"
"H*L" ?"%L"

What I would like to do is

1) Remove all the %!*0 characters
2) Get the last character of what remains for each string
3) Get a list, comparable to the one above, but with only one
character (so, the last three data points would become list(H,L,L)

I tried

strsplit(gsub("[*_!%0]*","",TADescSub$ExtendedLabel,""),"")

but that gives me something like:

...
[[2136]]
[1] "H" "L"

[[2137]]
[1] "H"

[[2138]]
[1] "H" "L"

[[2139]]
[1] "L"

So, what am I doing wrong?

/Fredrik

--
"Life is like a trumpet - if you don't put anything into it, you don't
get anything out of it."

Try this:

L <- c("!H*L", "L%", "%L", "H*L", "L%", "%L", "H*L", "H*L", "L%",

+ "%L", "H*L", "!H*L", "L%", "%L", "%L", "%L", "%L", "H*L", "!H*L",
+ "L%", "H*", "%L", "H*L", "L_%", "%L", "%H", "%H", "!H*L", "%H",
+ "H*", "%H", "%H", "H%", "H*", "!H*L", "H*L", "!H*L", "H*", "H*L",
+ "L_%", "%L", "%L", "H*L", "L*H", "H%", "%H", "L*H", "H%", "%H",
+ "H*L", "%H", "%L", "H*L", "%H", "%L", "H*L", "L%", "%L", "H*L",
+ "!H*L", "L%", "%L", "H*L", "%L", "H*L", "%H", "H*L", "%L")

sub(".*([^*_!%0])[*_!%0]*$", "\\1", x)

?[1] "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L"
"L" "L" "L" "L" "H" "L" "L" "L" "L" "H" "H" "L" "H" "H" "H" "H" "H"
"H" "L" "L" "L" "H"
[39] "L" "L" "L" "L" "L" "H" "H" "H" "H" "H" "H" "L" "H" "L" "L" "H"
"L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "L" "H" "L" "L"


On Wed, Mar 18, 2009 at 11:10 AM, Fredrik Karlsson <dargosch at gmail.com> wrote:

Dear list,

This seems like a very simple problem, but I am failing to loose a
dimension (I think).
I have list, like this:

...
[2072] "!H*L" "L%" ? "%L" ? "H*L" ?"L%" ? "%L" ? "H*L" ?"H*L" ?"L%"
"%L" ? "H*L" ?"!H*L" "L%" ? "%L" ? "%L" ? "%L" ? "%L" ? "H*L" ?"!H*L"
[2091] "L%" ? "H*" ? "%L" ? "H*L" ?"L_%" ?"%L" ? "%H" ? "%H" ? "!H*L"
"%H" ? "H*" ? "%H" ? "%H" ? "H%" ? "H*" ? "!H*L" "H*L" ?"!H*L" "H*"
[2110] "H*L" ?"L_%" ?"%L" ? "%L" ? "H*L" ?"L*H" ?"H%" ? "%H" ? "L*H"
"H%" ? "%H" ? "H*L" ?"%H" ? "%L" ? "H*L" ?"%H" ? "%L" ? "H*L" ?"L%"
[2129] "%L" ? "H*L" ?"!H*L" "L%" ? "%L" ? "H*L" ?"%L" ? "H*L" ?"%H"
"H*L" ?"%L"

What I would like to do is

1) Remove all the %!*0 characters
2) Get the last character of what remains for each string
3) Get a list, comparable to the one above, but with only one
character (so, the last three data points would become list(H,L,L)

I tried

strsplit(gsub("[*_!%0]*","",TADescSub$ExtendedLabel,""),"")

but that gives me something like:

...
[[2136]]
[1] "H" "L"

[[2137]]
[1] "H"

[[2138]]
[1] "H" "L"

[[2139]]
[1] "L"

So, what am I doing wrong?

/Fredrik

--
"Life is like a trumpet - if you don't put anything into it, you don't
get anything out of it."