R/string_find_first.R

Defines functions string_find_first

## File Name: string_find_first.R
## File Version: 0.04

string_find_first <- function(string, symbol )
{
    nc <- nchar(string)
    ind <- NA
    for (cc in 1L:nc){
        if( substring(string,cc,cc)==symbol ){
            ind <- cc
            break
        }
    }
    return(ind)
}
alexanderrobitzsch/miceadds documentation built on June 2, 2024, 10:10 a.m.