r语言：给定一个字符串，其中这个字符串由数字与字母构成，求出该字符串中出现连续数字的个数，并计算这些数字中的最大值与最小值。例如：给定字符串"adec12548d，。、rwda4584114，。，dead5458842readesa568931dd，。！，。、、ed3258248gyhnj，。，。！！！，，u228585"，红色部分即代表连续数字，一共有6个，其中最大的是：5458842，最小的是：12548。 要求： 1. 写一个R函数实现； 2. 输入参数是字符串； 3. 输出参数是：字符串中连续数字的总数，以及相应的数字，并输出最大最小值 4. 本题目不能加载R程序包实现

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

count_continuous_numbers <- function(str) {
  num_count <- 0
  nums <- c()
  max_num <- -Inf
  min_num <- Inf
  
  current_num <- NULL
  for (i in 1:nchar(str)) {
    char <- substr(str, i, i)
    if (grepl("[0-9]", char)) {
      if (is.null(current_num)) {
        current_num <- as.numeric(char)
      } else {
        current_num <- current_num * 10 + as.numeric(char)
      }
    } else {
      if (!is.null(current_num)) {
        num_count <- num_count + 1
        nums <- c(nums, current_num)
        max_num <- max(max_num, current_num)
        min_num <- min(min_num, current_num)
        current_num <- NULL
      }
    }
  }
  
  # Check if there is a number at the end of the string
  if (!is.null(current_num)) {
    num_count <- num_count + 1
    nums <- c(nums, current_num)
    max_num <- max(max_num, current_num)
    min_num <- min(min_num, current_num)
  }
  
  result <- list(num_count = num_count, nums = nums, max_num = max_num, min_num = min_num)
  return(result)
}

该函数首先初始化一些变量，包括数字计数器、数字数组、最大值和最小值（初始值分别为负无穷和正无穷）。然后，函数遍历字符串中的每个字符。如果当前字符是数字，则将其加入当前数字中；如果当前字符不是数字，则将当前数字加入数字数组中，并更新数字计数器、最大值和最小值。最后，函数返回一个包含数字计数器、数字数组、最大值和最小值的列表。

以下是一个示例使用该函数的代码：

str <- "adec12548d，。、rwda4584114，。，dead5458842readesa568931dd，。！，。、、ed3258248gyhnj，。，。！！！，，u228585"
result <- count_continuous_numbers(str)
cat("连续数字的总数：", result$num_count, "\n")
cat("数字：", result$nums, "\n")
cat("最大值：", result$max_num, "\n")
cat("最小值：", result$min_num, "\n")

输出结果如下：

连续数字的总数： 6 
数字： 12548 4584114 5458842 568931 3258248 228585 
最大值： 5458842 
最小值： 12548