R studio - 如何粘贴代码块，但删除注释？

Question

示例代码:

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))

我想复制并粘贴此代码来调整一些数字。如果我在里面的某个地方有很长的评论，有没有办法在删除任何评论的同时只粘贴代码？

Answer 1

您可以使用formatR package ，它有一套工具可以清理文件、粘贴的代码、R 文件的整个目录，甚至是 Shiny 应用程序。下面的示例显式地从上面调用您的文本，但是在没有指定 source 或 text 的情况下运行 tidy_eval() 默认使用剪贴板，因此可以一个简单的方法来做到这一点。请务必使用 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))