给定一个字符串，其中这个字符串由数字与字母构成，求出该字符串中出现连续数字的个数，并计算这些数字中的最大值与最小值。例如：给定字符串"adec12548d，。、rwda4584114，。，dead5458842readesa568931dd，。！，。、、ed3258248gyhnj，。，。！！！，，u228585"，红色部分即代表连续数字，一共有6个，其中最大的是：5458842，最小的是：12548。 要求： 1. 写一个R函数实现； 2. 输入参数是字符串； 3. 输出参数是：字符串中连续数字的总数，以及相应的数字，并输出最大最小值 4. 本题目不能加载R程序包实现 5. 使用两种方法：1，可以使用gregexpr， diff，函数实现，分清楚筛查的数字所在的首尾指针，然后转化成数值型变量；2，使用正则表达式，完成对应要求的相应字符串提取！

方法一：

count_digits <- function(str) {
  # 找出所有连续数字的位置
  nums_start <- gregexpr("(?<![0-9])[0-9]+(?![0-9])", str, perl = TRUE)[[1]]
  # 如果没有连续数字，返回空列表
  if (length(nums_start) == 0) {
    return(list(count = 0, max = NA, min = NA))
  }
  # 计算连续数字的个数
  count <- length(nums_start)
  # 初始化最大值和最小值
  max_num <- -Inf
  min_num <- Inf
  # 遍历每个连续数字的位置
  for (i in 1:count) {
    # 找出该连续数字的尾部位置
    nums_end <- nums_start[i] + attr(nums_start, "match.length")[i] - 1
    # 提取该连续数字的字符串
    num_str <- substr(str, nums_start[i], nums_end)
    # 转换为数字
    num <- as.numeric(num_str)
    # 更新最大值和最小值
    if (num > max_num) {
      max_num <- num
    }
    if (num < min_num) {
      min_num <- num
    }
  }
  # 返回结果列表
  return(list(count = count, max = max_num, min = min_num))
}

该函数使用 `gregexpr` 函数找出所有连续数字的位置，并使用循环遍历每个连续数字。对于每个连续数字，函数找出其尾部位置，并使用 `substr` 函数提取该数字的字符串。然后，将该字符串转换为数字，并使用 `if` 语句更新最大值和最小值。最后，函数将结果存储在一个列表中，并返回它。

方法二：

count_digits <- function(str) {
  # 找出所有连续数字的字符串
  nums_str <- gregmatches(str, gregexpr("(?<![0-9])[0-9]+(?![0-9])", str, perl = TRUE))[[1]]
  # 如果没有连续数字，返回空列表
  if (length(nums_str) == 0) {
    return(list(count = 0, max = NA, min = NA))
  }
  # 将连续数字转换为数字向量
  nums <- as.numeric(nums_str)
  # 返回结果列表
  return(list(count = length(nums), max = max(nums), min = min(nums)))
}

该函数使用 `gregexpr` 函数找出所有连续数字的字符串，并使用 `as.numeric` 函数将它们转换为数字向量。然后，函数使用 `max` 和 `min` 函数计算最大值和最小值。最后，函数将结果存储在一个列表中，并返回它。