使用循环在 R R2HTML 中打印值列表和 data.frame

Question

我正在使用库 R2HTML 来创建流程迭代的报告。 我将交互数据存储在一个列表中，以及用于 data.frame 上的每次迭代的参数。 我正在使用以下功能，但我无法打印迭代。 我只打印一次“HTML.title”，并在每个标题之间添加了一个 NULL。您知道是否可以在代码 R2HTML 中使用 for 循环或 while？知道我做错了吗？

HTML_OUTPUT_ITERATIONS<-function(epc_list, df_power_values){
  require(R2HTML)
  DIRECTOR<-getwd()
  FOLDER<-"/outputs/"
  OUTPUTS<-paste(DIRECTOR,FOLDER,sep="")
  PATH_OUTPUTS<-gsub(" ","", OUTPUTS, fixed=TRUE)
  i<-1
  HTMLStart(outdir=PATH_OUTPUTS, file="iterations",extension="html", echo=FALSE, HTMLframe=TRUE)
  HTML.title("Iterations Log Report", HR=1)
  HTML.title("Report of the data obtained from the readings that have been made during the test", HR=3)
  while(i<=length(df_power_values)){
    HTML.title("Power:")
    print(df_power_values[i,1])
    HTML.title("EPC read:")
    print(epc_list[i]
    i<-i+1
  }
  HTMLStop()
}

Data.frame (df_power_values) 值：

        V1
1   31.5
2   31.0
3   30.5
4   30.0
5   29.5
6   29.0
7   28.5
8   28.0
9   27.5
10  27.0
11  26.5
12  26.0
13  25.5
14  25.0
15  24.5
16  24.0
17  23.5
18  23.0
19  22.5
20  22.0

列出 epc_list：

[[1]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A016
5 00000000000000000000A340
6 00000000000000000000A012
7 00000000000000000000A051
8 00000000000000000000A274

[[2]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[3]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[4]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[5]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A012
6 00000000000000000000A051
7 00000000000000000000A274

[[6]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A012
6 00000000000000000000A051
7 00000000000000000000A274

[[7]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[8]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[9]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[10]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[11]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[12]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[13]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[14]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[15]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[16]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[17]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A340
5 00000000000000000000A051
6 00000000000000000000A274

[[18]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A051
5 00000000000000000000A274

[[19]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A051
5 00000000000000000000A274

[[20]]
                       epc
1 00000000000000000000A111
2 00000000000000000000B109
3 00000000000000000000A279
4 00000000000000000000A051
5 00000000000000000000A274

Answer 1

您的数据框的长度为 1，因此您的循环在一次迭代后结束。而不是while(i<=length(df_power_values))，请尝试while (i <= nrow(df_power_values)) 或while (i <= length(df_power_values$V1))。

Answer 2

是的！是对的，然后我看到了：）非常感谢，我把代码留在这里

while(i<=nrow(df_power_values)){
  HTML.title("Power:")
      HTML(df_power_values[i,1], digits=4)
    HTML.title("EPC read:")
      HTML(epc_list[i])

    i<-i+1
  }
  HTMLhr()
  HTMLStop()