Как убрать текст после зазоров с помощью stringr?

Question

Я извлекаю информацию из модели Vensim.

Это необработанный файл:

{UTF-8} \ г \nbirthing=\ г \ п \tPopulation* плодовитости \ г \ п \ т ~\tpeople/ Месяц \ г \ п \ т ~ \ т \ т | \ г \ п \ г \nPopulation= INTEG (\r\n\tbirthing,\r\n\t\t1)\r\n\t~\tpeople\r\n\t~\t\t|\r\n\r\nfertility=\r\ п \t0.04\ г \ п \ т ~\tpeople/ чел / месяц \ г \ п \ т ~ \ т \ т | \ г \ п \ г \ п *********** ********************************************* \ г \ п \t.Control\ г \ п ********************************************************~\r\n\t\t Параметры управления симуляцией \ r \ n \ t | \ r \ n \ r \ n ФИНАЛЬНОЕ ВРЕМЯ = 100\r\n\t~\tMonth\r\n\t~\t Окончательное время симуляции.\r\n\t|\r\n\r\nINITIAL TIME = 0\r\n\t~\tMonth\r\n\t~\t Первое время для моделирования.\r\n\t|\r\n\r\nSAVEPER = \r\n
ШАГ ВРЕМЕНИ \r\n\t~\tMonth [0,?]\ R \ n \ t ~ \ t Частота, с которой сохраняется выходной сигнал. \ R \ n \ t | \ r \ n \ r \ n ВРЕМЯ ШАГ = 0,0625\r\n\t~\tMonth [0,?]\r\n\t~\t Временной шаг для моделирования.\r\n\t|\r\n\r\n\\\---/// Информация об эскизе - не изменяйте ничего, кроме имен \r\nV300 Не помещайте ничего ниже этого раздела - оно будет проигнорировано \r\n*View 1\r\n$192-192-192,0,Arial|12||0-0-0|0-0-0|0-0-255|-1--1--1|-1--1--1|96,96,5,0\ г \ n10, 1, плодородие,156,22,25,10,8,3,0,2,0,0,0,0,-1--1--1,0-0-0,|0||128-0-128\ г \n1,2,1,4,1,0,0,12,0,0,0,-1--1--1,,1|(132,58)|\ г \n1,3,4,6,4,0,0,22,0,0,0,-1--1--1,,1|(145,83)|\ г \n11,4,172,118,83,5,6,34,3,0,0,1,0,0,0\ г \ n10,5, родильное,118,100,27,10,40,3,0,0,0,0,0,0\ г \n10,6, население,211,82,44,18,3,3,0,2,0,0,0,0,-1--1--1,0-0-0,|0||0-0-255\ г \n12,7,48,62,83,10,8,0,3,0,0,-1,0,0,0\ г \n1,8,4,7,100,0,0,22,0,0,0,-1--1--1,,1|(92,83)|\ г \n1,9,6,5,1,0,0,12,3,64,0,0-0-255,|12||0-0-0,1|(165134)|\ г \n12,10,0,-53,25,17,11,0,7,0,16,-1,0,0,0,-1--1--1,0-0-0,|12|B|0-0-0\ г \ Nkey\ г \n12,11,0,-53,65,22,10,0,7,0,2,-1,0,0,0,-1--1--1,0-0-0,|12||0-128-0\ г \nInputs\ г \ n12,12,0, -52103,29,10,0,7,0,2,-1,0,0,0,-1--1--1,0-0-0,|12||0-0-255\ г \nOutputs\ г \n12,13,0,-53,143,43,10,0,7,0,2,-1,0,0,0,-1--1--1,0-0-0,|12||128-0-128\ г \nParameters\ г \ п ///---\\\\ г \ п:L\177<% ^ Е @ \ г \ n1: Current.vdf \ г \ n9: Current \ г \ n22: $, доллар, доллары, $ S \ г \ n22: день, дни \ г \ n22: час, часы \ г \ n22: месяц, Месяцы \ г \ n22: человек, Люди, Лица \ г \ n22: задачи, задачи \ г \ n22: Unit, Units \ г \ n22: неделя, недели \ г \ n22: год, года \ г \ n15: 0,0,0,0,0,0 \ г \ N19: 5,0 \ г \ N27: 2, \ г \ N34: 0, \ г \ n4: Время \ г \ n5: плодородие \ г \ N24: 0 \ г \ n25: 100 \ г \ N26: 100 \ г \ п

Я хочу удалить часть '{UTF-8}' и весь текст, начиная с

\\\ --- /// Информация об эскизе

до конца.

Я пробовал следующий код с библиотекой Stringr:

pattern   <- regex("\\{.*?\\}|\\s*\\\\\\\\\\\\.*$",
                   multiline = T, ignore_case = T,
                   dotall = T)

newText <- str_remove_all(mdlString, pattern)

Это работает только если я использую str_remove_all но это не сработает, если я использую str_remove

Может кто-нибудь сказать мне, почему?