Bureaucrats, Administrators, widgeteditor
1,007
edits
Changes
no edit summary
<h1><span style="font-family:courier new,courier,monospace">Split the elements of a character vector like perl</spanp>[[YalPak_Rtip]]</h1p>
<h3 style="color:#aaa;font-style:italic;"h1><span style="font-family:courier new,courier,monospace">InputSplit the elements of a character vector and select an element</span></h3h1>
<div h3 style="backgroundcolor:#eeeaaa;borderfont-style:1px solid #ccc;padding:5px 10px;italic"><span style="font-family:courier new,courier,monospace">x <- "AAA@BBB"Input</span></divh3>
<h3 div style="colorbackground:#aaaeee;border:1px solid #ccc;padding:5px 10px;"><span style="font-stylesize:italic;11px"><span style="font-family:courier new,courier,monospace">Codex <- "AAA@BBB"</span></span></h3div>
<h3 style="color:#aaa; font-style:italic"><span style="font-family:courier new,courier,monospace">Code</span></h3> <div style="background:#eee;border:1px solid #ccc;padding:5px 10px;"><span style="font-size:11px"><span style="font-family:courier new,courier,monospace">split_pick <- function(x , Div_str, Pick_num){<br />
return(as.character(as.data.table(strsplit(x, Div_str))[Pick_num])) <br />
}</span></span></div>
<div style="background:#eee;border:1px solid #ccc;padding:5px 10px;"><span style="font-size:11px"><span style="font-family:courier new,courier,monospace">split_pick(x, "@", 2)</span></span></div>
<h3 style="color:#aaa;font-style:italic;"><span style="font-family:courier new,courier,monospace">Output</span></h3>
<div style="background:#eee;border:1px solid #ccc;padding:5px 10px;"><span style="font-size:11px"><span style="font-family:courier new,courier,monospace">"BBB"</span></span></div>
<p> </p>