match_col: Find row-col location of a search string in 'data.frame'

In tharte/tutils: Tom's UTILity functionS

Description

Description: What the function does in more detail

Usage

match_col(term, DF, ROW.FUN = c("first", "last"), COL.FUN = c("first",
  "last"))

Arguments

term	character string to search for
DF	data.frame or matrix to search
ROW.FUN	function for row search
COL.FUN	function for column search

Value

named vector with row & col location of search

Author(s)

Thomas P. Harte

See Also

match, grep

Examples

tab<- read.csv(con<- textConnection(
"Name,    Age, Salary
 Derek  ,  NA,    32k		# <- NOTE: 'Derek  '
 Tom,      26,    21k
 NA,       NA,     NA
 Harry,    31,    50k"
), header=TRUE, colClasses=c("character","integer","character"), comment.char="#"); close(con)

match_col("NON-MATCHING-STRING", tab, ROW.FUN="first", COL.FUN="first")
match_col("NON-MATCHING-STRING", tab, ROW.FUN="first", COL.FUN="last")
match_col("NON-MATCHING-STRING", tab, ROW.FUN="last", COL.FUN="first")
match_col("NON-MATCHING-STRING", tab, ROW.FUN="last", COL.FUN="last")

result<-        rep(NA,2)
names(result)<- c("row","col")

result["row"]<- 1; result["col"]<- 1
all.equal(match_col("k", tab, ROW.FUN=tutils::first, COL.FUN=tutils::first), result)

result["row"]<- 1; result["col"]<- 3
all.equal(match_col("k", tab, ROW.FUN=tutils::first, COL.FUN=tutils::last), result)

result["row"]<- 4; result["col"]<- 1
all.equal(match_col("r", tab, ROW.FUN=tutils::last, COL.FUN=tutils::first), result)	# <- NOTE: testing for "r"

result["row"]<- 4; result["col"]<- 3
all.equal(match_col("k", tab, ROW.FUN=tutils::last, COL.FUN=tutils::last), result)	# <- NOTE: testing for "k"

tharte/tutils documentation built on Feb. 11, 2020, 9:17 a.m.