crosswalk = function(){
  selection = rstudioapi::getSourceEditorContext()$selection[[1]]$range
  doc_id = rstudioapi::getSourceEditorContext()$id
  rstudioapi::insertText(location = selection, 'foo_bar_fizz_bang', id = doc_id)
}

crosswalk()
summary(mtcars)