R/string_find_first.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## 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)
}