在代码中获得“意外的数字常量”

Question

我正在尝试运行我的代码，但收到以下错误：

  

错误：意外的数字常量：“
  if（（final.string [1 + loop.check]）！=   （final.string [string.length减-loop.check]））{        返回FALSE“

我的代码如下：

inputString = "aabb"
string.length <- nchar(inputString)
compare.list <- strsplit(inputString,"")
final.string <- unlist(compare.list)
loop.check <- 0L
if(string.length %% 2 == 0){
  loop.stop <- string.length/2
}
if(string.length %% 2 == 1){
  loop.stop <- (string.length -1) / 2
}
while (loop.check<=loop.stop){
  if((final.string[1+loop.check]) != (final.string[string.length-loop.check])){
    return FALSE
    break
  }
  else{
    loop.check <- loop.check + 1
  }
}
if(loop.check-1==loop.stop){
  return TRUE
}

如果我只运行(final.string[1+loop.check]) != (final.string[string.length-loop.check])部分，则控制台返回FALSE，因此if语句条件的代码似乎正常。但是，在尝试运行整个脚本时，我得到了上述错误。