r语言：检查一个输入的字符串是否是回文字符串。回文字符串，即，“abccba”与“123d321”都算是回文字符串。注意：字符串长度可能会奇数或偶数： 1，如果字符串长度是奇数，字符串会剩下最中间那位字符，但其不影响回文。当检查到长度为1的时候即代表此字符串是回文 2，如果字符串长度是偶数，当两端的字符串两两比较检查后不会剩下字符。即检查到长度为0的时候即代表此字符串是回文 要求： 1. 写一个函数实现上述问题 2. 输入参数是字符串 3. 输出结果为判断这个字符串是否是回文，如果“是”返回：“TRUE”，否则返回：“FALSE”

您好！以下是 R 语言实现一个判断输入字符串是否是回文字符串的函数：

is_palindrome <- function(str) {
  # 将字符串全部转换为小写字母
  str <- tolower(str)
  # 去除字符串中的空格
  str <- gsub(" ", "", str)
  # 计算字符串的长度
  len <- nchar(str)
  # 如果字符串长度为1，则是回文字符串
  if (len == 1) {
    return(TRUE)
  }
  # 计算中间位置
  mid <- ceiling(len / 2)
  # 判断字符串长度是奇数还是偶数
  if (len %% 2 == 0) {
    # 如果是偶数，从中间位置分开，分别向两端比较
    left <- str[1:(mid-1)]
    right <- str[mid:len]
    return(identical(left, rev(right)))
  } else {
    # 如果是奇数，从中间位置分开，分别向两端比较
    left <- str[1:(mid-1)]
    right <- str[(mid+1):len]
    return(identical(left, rev(right)))
  }
}

该函数首先将输入字符串转换为小写字母，去除空格，然后根据字符串长度分别进行判断，最后返回结果。如果是回文字符串，则返回 TRUE，否则返回 FALSE。