在R中有没有一个函数，我可以给它一个数字，它会返回它位于中间的正方形？

find_middle_square <- function(num) {
  # 将数字转换为字符串
  num_str <- as.character(num)
  
  # 计算字符串长度
  len <- nchar(num_str)
  
  # 计算中间正方形的起始位置和长度
  start <- ceiling(len/2)
  length <- ifelse(len %% 2 == 0, 2, 1)
  
  # 提取中间正方形的数字，并转换为整数
  middle_square <- as.integer(substr(num_str, start, start+length-1))
  
  return(middle_square)
}

# 调用函数示例
result <- find_middle_square(123456)
print(result)  # 输出：34