R: get_run sample