library(tidyverse)
tibble(name = c("Mösser, Justus Justus", "Екатерина II")) %>% 
  separate(name, into = c("first", "last"), ", ") %>% 
  separate(last, " ", into = c("n1", "n2")) %>% 
  pivot_longer(col = n1:n2, names_to = "var", values_to = "value") %>% 
  mutate(value = str_c(str_extract(value, "."), ". ")) %>% 
  group_by(first) %>% 
  summarise(name = str_c(value, collapse = "")) %>% 
  mutate(result = str_c(first, name, sep = " "),
result = str_remove(result, " $"))

месяца 3 прошло. И там основная проблема была с тем что после наступления таймаута докер контейнер не прибивался а шайни думает что его прибила. Из-за это люди с утра заходили смотрели отчет, потом в обед пробовали повторно зайти а он им 500 ошибку выдавал. Из-за того что shiny_proxy пробует запустить контейнер для пользователя, только вот контейнер уже запущен. В итоге так и не нашли как это поффиксить и просто стали принудительно отрубать контейнеры работающие больше 45 минут, все равно люди  больше 45 минут отчетом не пользуются

vapply(lapply(strsplit(na, ","),
              function(x)
                c(x[1], gsub(
                  "[[:lower:]]+", "", x[-1]
                ))), paste, "", collapse = ",")

 mob$health <-  mob$health - damage

a <- observeEvent(event, {
    expr…
}