add R APIs. close #141