我有一个数据集，其中包含一个 ID 列和一个要下载的 URL 列，每个 ID 有 2 个 URL，我想要下载每两个 URL 并将它们转换为一个以其 ID 命名的 PDF 文件。我想要一个...

我有一个数据集，其中包含 ID 列和要下载的 URL 列，每个 ID 有 2 个 URL，我想要下载每两个 URL 并将它们转换为一个以其 ID 命名的 PDF 文件。我想要每个 ID 一个 PDF。

# demo dataset

df <- data.frame(ID = c(1,1,2,2,3,3),
                 Full_Path = c("https://test1.png","https://test1.png",
                               "https://test1.png","https://test1.png",
                               "https://test1.png","https://test1.png"))

for (url in df$Full_Path) {
 
download.file(url, destfile = basename(url), method="curl", extra="-k", mode="wb")

fl = list.files(full.names = T, pattern = '.png')

img = image_read(fl) # read from vector of paths

img2 = image_append(img, stack = TRUE) # places pics above one another

image_write(img2, format="pdf", file.path(dir,paste('IMG',today(),'.pdf'))) 

}

unlink(fl)

但在这个循环之后，所有内容都打印在一个 PDF 中，我希望每个 ID 都有一个 pdf

你可以使用扩展运算符并循环遍历它。假设你有一个名为的数组， myArray 你可以使用 [...myArray]

const myArray = [1,2,3];
[...myArray].forEach(arr => console.log(arr));

@HassanElleithy 没有文件的话很难说清楚发生了什么。你能在管道后面加一个 print(class(img)) 吗？

如果你要改变一个可迭代对象，你总是可以在循环之前对其进行浅复制：

[...$('table#tableForm')[0].firstChild.childNodes].forEach((c) => {
  content = $(c).find('td')[0].innerText
  if (toMove[content]) {
    $('#'+toMove[content]).appendTo(c)  // <= This change *.childNodes, next iteration will miss the next element
  }
});

它与第一个 ID 一起工作，将两个 url 下载为 .png，然后崩溃并出现此错误：错误：“图像”参数不是魔法图像对象。–

请说明您的具体问题或提供更多详细信息以准确突出您的需求。根据目前的写法，很难准确说出您要求的是什么。

谢谢@Rui，它起作用了，但打印了 PDF 中的每个 URL，我希望与同一 id 相关的两个 URL 都在一个 PDF 中

我不确定下面的代码是否能回答这个问题。
输出文件的名称中包含数字。

df <- data.frame(ID = c(1,1,2,2,3,3),
                 Full_Path = c("https://test1.png","https://test1.png",
                               "https://test1.png","https://test1.png",
                               "https://test1.png","https://test1.png"))

for(i in seq_len(nrow(df))) {
  url <- df$Full_Path[i]
  fl <- basename(url)
  download.file(url, destfile = fl, method="curl", extra="-k", mode="wb")
  img <- image_read(fl) # read from vector of paths
  img2 <- image_append(img, stack = TRUE) # places pics above one another
  
  # sprintf's format string outputs a string
  # with the formats replaced by
  #   %02d - an 2 digits integer padded with zeros
  #   %s   - a string, in this case the system date
  outfile <- sprintf('IMG_%02d_%s.pdf', i, today())
  outfile <- file.path(dir, outfile)
  image_write(img2, format = "pdf", outfile)
}

unlink(fl)

编辑

以下代码创建了一个子数据框列表， ID 并分别处理每个子数据框。它应该为每个子数据框写入一个文件，其中 ID 包含下载的图像文件的内容。

library(magick)

sp <- split(df, df$ID)
lapply(sp, \(X) {
  i <- X$ID |> unique()
  # download and read all files, pipe to image_append
  # to combine them in one image only
  img <- sapply(X$Full_Path, \(url) {
    fl <- basename(url)
    download.file(url, destfile = fl, method="curl", extra="-k", mode="wb")
    image_read(fl)
    # clean up after reading, commented out
    # because it might be a good idea to keep
    # the files, it avoids having to read them
    # again if they are needed later
    # unlink(fl)
  }) |> image_append(stack = TRUE)
  #
  outfile <- sprintf('IMG_%02d_%s.pdf', i, Sys.Date())
  outfile <- file.path(dir, outfile)
  image_write(img, format = "pdf", outfile)
})
rm(sp)

您可以对数据进行排序并使用 BY 语句。

proc sort data=sashelp.cars out=cars;
  by make;
run;

ods html file='report.html';

  options byline;
  title;
  proc freq data=cars;
    by make;
    tables type drivetrain;
    where make in: ('L');
  run; 

ods html close;

将输出