Define format for fixed width file cols <- data.frame(name = c("id", "year", "month", "element"), start = c(1, 12, 16, 18), end = c(11, 15, 17, 21)) 这一句可以执行 names <- str_c(c("value", "mflag", "qflag", "sflag"), rep(1:31, each = 4), sep = "_") 这一句执行出错提示 Error in str_c() : ! Can't recycle ..1 (size 4) to match ..2 (size 124). Run rlang::last_trace() to see where the error occurred. 点击之后的详细说明 Backtrace: ▆ ├─stringr::str_c(...) │ └─vctrs::vec_size_common(!!!dots) └─vctrs::stop_incompatible_size(...) └─vctrs:::stop_incompatible(...) └─vctrs:::stop_vctrs(...) └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call) 原文背景出自： https://github.com/hadley/tidy-data Hadley Wickham论文Tidy Data( https://www.jstatsoft.org/article/view/v059i10 )中的，这个小节的示例代码 3.3. Variables are stored in both rows and columns 行和列中都有变量

代码第2句出错的内因请教Can't recycle `..1` (size 4) to match

airexceltor

Define format for fixed width file

cols <- data.frame(name = c("id", "year", "month", "element"), start = c(1, 12, 16,
18), end = c(11, 15, 17, 21))
这一句可以执行
names <- str_c(c("value", "mflag", "qflag", "sflag"), rep(1:31, each = 4), sep = "_")
这一句执行出错提示
Error in str_c():
! Can't recycle ..1 (size 4) to match ..2 (size 124).
Run rlang::last_trace() to see where the error occurred.

点击之后的详细说明

Backtrace:
▆

├─stringr::str_c(...)
│ └─vctrs::vec_size_common(!!!dots)
└─vctrs::stop_incompatible_size(...)
└─vctrs:::stop_incompatible(...)
└─vctrs:::stop_vctrs(...)
└─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
原文背景出自：https://github.com/hadley/tidy-data
Hadley Wickham论文Tidy Data(https://www.jstatsoft.org/article/view/v059i10)中的，这个小节的示例代码
3.3. Variables are stored in both rows and columns
行和列中都有变量

fenguoerbian

当你传入的参数长度不匹配的时候，一些R函数会自动循环使用较短的参数，以使得整体的参数长度是匹配的。

当长参数的长度是短参数长度的整数倍时，这种自动循环也许是用户期待的。但有些特殊情况，即使参数长度间不是整倍数的关系，也会自动循环使用而没有进一步的提示，那这种情况一般来说就不是用户期待的了。（例如一个参数长度是7，一个参数长度是4，那么自动循环后，其实是短参数的前3个值被循环使用了）

tidyverse系列的包则一般对这种参数的循环使用做了限制，只有长度为1的参数可以被循环使用。所以你这儿一个长度是4的参数，一个长度是124的参数，是会报错提示参数长度不匹配，无法自动循环使用的。

这种tidyverse recycling rule应该也是在tidy系列的包发展的过程中渐渐被应用的，所以曾经的老文章里还没有应用这个规则。

airexceltor

fenguoerbian 还能进一步看代码片断，非常感谢耐心指点，期待收到您的再次回复^V

airexceltor

非常感谢耐心指点，就是在构建这个表格时，第2段代码

Define format for fixed width file

cols <- data.frame(name = c("id", "year", "month", "element"), start = c(1, 12, 16,
18), end = c(11, 15, 17, 21))
names <- str_c(c("value", "mflag", "qflag", "sflag"), rep(1:31, each = 4), sep = "_")
starts <- cumsum(c(22, rep(c(5, 1, 1, 1), 31)))
starts <- starts[-length(starts)]
ends <- c(starts[-1], starts[length(starts)] + 1) - 1
values <- data.frame(name = names, start = starts, end = ends)
cols <- rbind(cols, values)
代码上下文片断

fenguoerbian

str_c换成paste呗，这个可能是改动最小的做法了。paste()并没有这个tidyverse recycling rule的限制。

airexceltor

fenguoerbian 非常感谢耐心指点，已经尝试，代码可以跑通^V 有您的指点真棒
先回去啃这篇论文啦，再次感谢