Conditional Logic in R: Writing a Function to Evaluate Risk Descriptions