我正在尝试创建一个能够返回相同字符串的各种版本的函数，但字母之间有空格。
类似的东西：
input <- "word"
返回：
w ord
wo rd
wor d
答案 0 :(得分：4)
我们首先使用strsplit将字符串分解为每个字符。然后我们append使用sapply在每个位置input <- "word"
input_break <- strsplit(input, "")[[1]]
c(input, sapply(seq(1,nchar(input)-1), function(x)
paste0(append(input_break, " ", x), collapse = "")))
#[1] "word" "w ord" "wo rd" "wor d"
。
?append append(x, values, after = length(x))给了我们x
其中value是向量，" "是要插入的值（此处为after），values位于您要插入$.ajax({
type: "POST",
url:'{{URL::to("/delete-specialist")}}',
data: {
id: id,
_token: $('#signup-token').val()
},
datatype: 'html',
success: function (response) {
if(response=="deleted"){
$("#"+id).hide();
$("#message").html("successfully deleted");
}
}
});
的位置之后。
答案 1 :(得分：3)
以下是使用sub
sapply(seq_len(nchar(input)-1), function(i) sub(paste0('^(.{', i, '})'), '\\1 ', input))
#[1] "w ord" "wo rd" "wor d"
或substring
paste(substring(input, 1, 1:3), substring(input, 2:4, 4))
#[1] "w ord" "wo rd" "wor d"