r - suggestion_log