Я предполагаю, что это выражение, вероятно, сработает здесь, если мы хотим захватить имя:
.*?\s+(\S+\.[A-Z][a-z]+).*
с использованием этой группы захвата (\S+\.[A-Z][a-z]+)
.
и наш код может выглядеть следующим образом:
gsub(".*?\\s+(\\S+\\.[A-Z][a-z]+).*", "\\1", input_goes_here)