使用R.foreach的方式筛选特定id的交易

在 `naivecoin` 中，你可以通过调用 HTTP API 来获取和筛选特定 ID 的交易。以下是如何使用 `curl` 命令来实现这一点：

### 获取所有区块中的交易
首先，你可以从区块链中获取所有区块，并从中提取交易信息。

curl -X GET http://localhost:3001/blockchain/blocks

这将返回一个包含所有区块的 JSON 对象。每个区块都包含一组交易。

### 筛选特定 ID 的交易
假设你想筛选出具有特定 `transactionId` 的交易，可以使用以下步骤：

1. **获取所有区块**：如上所述，使用 `curl` 获取所有区块。
2. **解析 JSON 数据**：使用工具（如 `jq`）来解析 JSON 数据并筛选出特定 ID 的交易。

例如，如果你想筛选出 `transactionId` 为 `abc123` 的交易，可以使用以下命令：

curl -X GET http://localhost:3001/blockchain/blocks | jq '.[] | select(.transactions[].id == "abc123")'

### 使用 `R.foreach` 进行筛选
如果你希望在 R 语言中进行筛选，可以使用 `httr` 和 `jsonlite` 包来处理 HTTP 请求和 JSON 解析。以下是一个示例代码：

library(httr)
library(jsonlite)

# 获取所有区块
response <- GET("http://localhost:3001/blockchain/blocks")
blocks <- content(response, "parsed")

# 定义要筛选的交易ID
target_transaction_id <- "abc123"

# 使用 foreach 筛选特定ID的交易
filtered_transactions <- lapply(blocks, function(block) {
  transactions <- block$transactions
  filtered <- Filter(function(tx) tx$id == target_transaction_id, transactions)
  return(filtered)
})

# 合并所有筛选结果
all_filtered_transactions <- unlist(filtered_transactions, recursive = FALSE)

# 打印结果
print(all_filtered_transactions)

### 解释
1. **获取所有区块**：使用 `httr::GET` 发送 HTTP 请求获取所有区块。
2. **解析响应**：使用 `content` 函数将响应内容解析为 JSON 格式。
3. **定义目标交易ID**：设置要筛选的交易ID。
4. **使用 `foreach` 筛选**：遍历每个区块的交易列表，筛选出匹配目标ID的交易。
5. **合并结果**：将所有筛选结果合并到一个列表中。
6. **打印结果**：输出筛选后的交易。

这样，你就可以在 R 语言中使用 `foreach` 方式筛选特定 ID 的交易了。