Вы можете использовать пакет formatR
, который имеет набор инструментов для очистки файлов, вставленного кода, целых каталогов файлов R и даже приложений Shiny. В приведенном ниже примере явно вызывается ваш текст сверху, но при запуске tidy_eval()
без указания source
или text
по умолчанию используется буфер обмена, поэтому это может быть простой способ сделать это. Используйте comment = FALSE
для удаления комментариев.
formatR::tidy_eval(text = "grid_moj <- expand.grid(
a1 = seq(-5, 15, length=25), #comment here
a2 = seq(1,3, length=25)
) %>% mutate(dist=map2_dbl(a1,a2, sim1_dist))",
comment = FALSE)
#> grid_moj <- expand.grid(a1 = seq(-5, 15, length = 25), a2 = seq(1, 3, length = 25)) %>%
#> mutate(dist = map2_dbl(a1, a2, sim1_dist))