如何更新只有一个领域与certbot？(How to renew only one domain with certbot?)

 您对apply调用失败，因为它的第三个参数是函数调用的结果，而不是函数本身。 此外，虽然它可以根据您的基本数据工作，但如果您的data.frame中有任何其他数据类型，它将失败，因为apply会将data.frame转换为matrix ，这将导致类型转换。 正因为这个（以及其他一些原因）我建议不要在这里使用apply 。 
 
 我认为你可以很容易地对它进行矢量化，并且可以通过merge来解决引入基于grp的添加的技巧。 （它也可以用dplyr::left_join 。） 
 
 你的数据： 
 
increment <- read.table(text = "grp   increment
1   10
2   25
3   35
4   50", header = TRUE)

input <- read.table(text = "grp   pos
1   10
1   14
1   25
2   3
2   20
3   2
3   10", header = TRUE)
 
 我会更新这个，以便调整基于$increment列。 你可以替换 $increment而不是添加 $add 。 
 
increment$add <- c(0, cumsum(increment$increment[-nrow(increment)]))
increment
#   grp increment add
# 1   1        10   0
# 2   2        25  10
# 3   3        35  35
# 4   4        50  70

x <- merge(input, increment[,c("grp", "add")], by = "grp")
x
#   grp pos add
# 1   1  10   0
# 2   1  14   0
# 3   1  25   0
# 4   2   3  10
# 5   2  20  10
# 6   3   2  35
# 7   3  10  35
 
 从这里开始，这只是一个调整问题。 这两个都是 
 
x$pos_adj <- x$pos + x$add
x$add <- NULL # remove the now-unnecessary column
x
#   grp pos pos_adj
# 1   1  10      10
# 2   1  14      14
# 3   1  25      25
# 4   2   3      13
# 5   2  20      30
# 6   3   2      37
# 7   3  10      45
 
 （我对列等等有点冗长。这当然可以做得更紧凑，但我希望有空间去理解正在做什么以及在哪里。） 

Your call to apply is failing because your third argument to it is the result from a function call, not a function itself. Further more, though it can work given your rudimentary data, if there are any other data types in your data.frame, it will fail since apply converts the data.frame into a matrix, which will result in type-conversions. It is because of this (and a few other reasons) that I recommend against using apply here.
 
I think you can vectorize it fairly easily, and the trick to bring in the grp-based additions can be resolved with merge. (It can also be done with dplyr::left_join.)
 
Your data:
 
increment <- read.table(text = "grp   increment
1   10
2   25
3   35
4   50", header = TRUE)

input <- read.table(text = "grp   pos
1   10
1   14
1   25
2   3
2   20
3   2
3   10", header = TRUE)
 
I'll update this so that the adjustments are based on the $increment column. You can replace $increment instead of adding $add, over to you.
 
increment$add <- c(0, cumsum(increment$increment[-nrow(increment)]))
increment
#   grp increment add
# 1   1        10   0
# 2   2        25  10
# 3   3        35  35
# 4   4        50  70

x <- merge(input, increment[,c("grp", "add")], by = "grp")
x
#   grp pos add
# 1   1  10   0
# 2   1  14   0
# 3   1  25   0
# 4   2   3  10
# 5   2  20  10
# 6   3   2  35
# 7   3  10  35
 
From here, it's simply a matter of adjusting. Both of these are 
 
x$pos_adj <- x$pos + x$add
x$add <- NULL # remove the now-unnecessary column
x
#   grp pos pos_adj
# 1   1  10      10
# 2   1  14      14
# 3   1  25      25
# 4   2   3      13
# 5   2  20      30
# 6   3   2      37
# 7   3  10      45
 
(I've been a bit verbose with columns and such. This can certainly be made a little more compact, but I wanted there to be room for understanding what is being done and where.)