List of users not returned in user_info$data leading to subscript out of bound error in received_profile <- user_info$data[[1]]