title: R remove string after second underscore
body: <p>This is a very basic question, but I cannot find a clear answer... How do you remove everything after the second underscore. Thanks!</p>
  <pre><code>Please_remove_this_part
  </code></pre>
  <p>desired output:</p>
  <pre><code>Please_remove
  </code></pre>