Function str_from_strsxp 

pub(crate) fn str_from_strsxp<'a>(sexp: SEXP, index: usize) -> Option<&'a str>