r - 在 R 函数中不使用 return 修改对象

Question

我试图在不使用 R 中的额外空间的情况下反转字符串。下面是相同的代码。我的问题是如何获得 ReverseString函数在不使用额外空间的情况下更改输入。我什至尝试使用 <<-没有任何运气。

ReverseString <- function(TestString){
  TestString <- unlist(strsplit(TestString, ""))
  Left <- 1
  Right <- length(TestString)
  while (Left < Right){
    Temp <- TestString[Left]
    TestString[Left] <- TestString[Right]
    TestString[Right] <- Temp
    Left <- Left + 1
    Right <- Right - 1
  }
  return(paste(TestString, collapse = ""))

}
## Input
a = "StackOverFlow"
## OutPut
ReverseString(a)
"wolFrevOkcatS"
## 
a
"StackOverFlow"

Answer 1

最好利用 R 中的矢量化(而不是 for 或 while 循环)。所以，在 base-R 中，没有任何包，它会是这样的:

ReverseString <- function(x) {
  #splitstring splits every character, and rev reverses the order
  out <- rev(strsplit(x, split = '')[[1]])
  #paste to paste them together
  paste(out, collapse = '')
}

a <- "StackOverFlow"
ReverseString(a)
#[1] "wolFrevOkcatS"