Difference between revisions of "Simple functions"

From kogic.kr
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
<h1><span style="font-family:courier new,courier,monospace">Split the elements of a character vector and select a element</span></h1>
+
<p>[[YalPak_Rtip]]</p>
 +
 
 +
<h1><span style="font-family:courier new,courier,monospace">Split the elements of a character vector and select an element</span></h1>
  
 
<h3 style="color:#aaa; font-style:italic"><span style="font-family:courier new,courier,monospace">Input</span></h3>
 
<h3 style="color:#aaa; font-style:italic"><span style="font-family:courier new,courier,monospace">Input</span></h3>

Latest revision as of 13:34, 27 November 2018

YalPak_Rtip

Split the elements of a character vector and select an element

Input

x <- "AAA@BBB"

Code

split_pick <- function(x , Div_str, Pick_num){

    return(as.character(as.data.table(strsplit(x, Div_str))[Pick_num])) 

}
split_pick(x, "@", 2)

Output

"BBB"