using R How to remove all words after a specific character in

Question

I have a column in tbl_df titled "Search" and would like to remove all characters to the right of the question mark "?"

Example