Разбор строки |

Question

У меня есть список строк, которые выглядят так:

categories <- "|Music|Consumer Electronics|Mac|Software|"

Однако, я только хочу получить первую строку. В этом случае Music (без |). Я пробовал:

sub(categories, pattern = " |", replacement = "")

Однако это не дает мне желаемого результата. Любая рекомендация, как правильно разобрать мою строку?

Я ценю ваш ответ!

UPDATE

> dput(head(df)) 
structure(list(data.founded_at = c("01.06.2012", "26.10.2012", 
"01.04.2011", "01.01.2012", "10.10.2011", "01.01.2007"), data.category_list = c("|Entertainment|Politics|Social Media|News|", 
"|Publishing|Education|", "|Electronics|Guides|Coffee|Restaurants|Music|iPhone|Apps|Mobile|iOS|E-Commerce|", 
"|Software|", "|Software|", "|Curated Web|")), .Names = c("data.founded_at", 
"data.category_list"), row.names = c(NA, 6L), class = "data.frame") 

Answer 1

Альтернативой этому может быть scan:

na.omit(scan(text = categories, sep = "|", what = "", na.strings = ""))[1] 
# Read 6 items 
# [1] "Music" 

Answer 2

Найти функцию, которая будет разметить строку в определенном характере: strsplit бы мое предположение.

http://stat.ethz.ch/R-manual/R-devel/library/base/html/strsplit.html

Answer 3

Обратите внимание, что параметр в Сплите является регулярное выражение, так что использование split="|" не будет работать (если не указано фиксированной = TRUE, как это было предложено от Joran -thanks- в комментариях)

strsplit(categories,split="[|]")[[1]][2] 

чтобы применить это к кадру данных вы могли бы сделать это:

sapply(df$data.category_list, function(x) strsplit(x,split="[|]")[[1]][2]) 

Но это быстрее (см комментарии):

vapply(strsplit(df$data.category_list, "|", fixed = TRUE), `[`, character(1L), 2) 

(благодаря Ананда Mahto)