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

以下是一个实现该功能的 R 函数：

continuous_numbers <- function(str) {
  nums <- grep("\\d+", str, value = TRUE) # 筛选出字符串中的数字
  con_nums_pos <- which(diff(c(-1, as.numeric(gsub("\\D", "", nums)), Inf)) > 1) # 找到连续数字的起始位置
  con_nums <- sapply(seq_along(con_nums_pos), function(i) {
    substr(nums[con_nums_pos[i]], 1, diff(con_nums_pos[c(i, i+1)]) - 1) # 提取连续数字
  })
  con_nums_min <- min(as.numeric(con_nums)) # 计算最小值
  con_nums_max <- max(as.numeric(con_nums)) # 计算最大值
  return(list(total_count = length(con_nums), nums = con_nums, max_val = con_nums_max, min_val = con_nums_min))
}

该函数的参数是一个字符串，返回一个包含总连续数字数目、连续数字列表、最大值和最小值的列表。函数逻辑如下：

1. 使用 `grep` 函数筛选出字符串中的数字。
2. 使用 `diff` 函数找到连续数字的起始位置。
3. 使用 `substr` 函数提取连续数字。
4. 使用 `as.numeric` 函数将连续数字转化为数值型变量。
5. 使用 `min` 和 `max` 函数分别计算最小值和最大值。
6. 返回结果列表。