<h1><span style="font-family:courier new,courier,monospace">Split the elements of a character vector like perland select a element</span></h1>
<h3 style="color:#aaa;font-style:italic;"><span style="font-family:courier new,courier,monospace">Input</span></h3>
<div style="background:#eee;border:1px solid #ccc;padding:5px 10px;"><span style="font-family:courier new,courier,monospace">x <- "AAA@BBB"</span></div>
<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-family:courier new,courier,monospace">split_pick <- function(x , Div_str, Pick_num){<br />
<div style="background:#eee;border:1px solid #ccc;padding:5px 10px;"><span style="font-family:courier new,courier,monospace">split_pick(x, "@", 2)</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-family:courier new,courier,monospace">"BBB"</span></div>
<p> </p>