r api script