生成在R中保存文档的路径时出错

我有一个关于使用粘贴函数和getwd函数的问题，我的函数是：

HTML_OUTPUT_ITERATIONS<-function(df_power_values, df_on_time_values, inventory_DF_List_on_time, DF_inventory_items){
      require(R2HTML)
      x<-1
      DIRECTORY<-getwd()
      FOLDER<-"/outputs"
      OUTPUTS<-paste(DIRECTORY,FOLDER,sep="")
      PATH_OUTPUTS<-gsub(" ","", OUTPUTS, fixed=TRUE)
      HTMLStart(outdir=PATH_OUTPUTS, file="iterations",extension="html", echo=FALSE, HTMLframe=TRUE)
      HTML.title("Iterations Log Report", HR=3)
      HTMLhr()
      HTML.title("Log results of iterations powers sequence", HR=2)
      HTMLhr()
      while(x<=length(inventory_DF_List)){
      HTML.title("Power:")
          HTML(df_power_values[x,1], digits=4)
        HTML.title("Inventory:")
          HTML(inventory_DF_List[x])
        x<-x+1
      }
      HTMLhr()
      HTML.title("Log results of iterations Time On sequence", HR=2)
      HTMLhr()
      while(x<=length(inventory_DF_List_on_time)){
        HTML.title("Power:")
          HTML(df_on_time_values[x,1], digits=4)
        HTML.title("Inventory:")
          HTML(inventory_DF_List_on_time[x])
        x<-x+1
      }
      HTMLhr()
      HTMLStop()
    }

---

HTML\u OUTPUT\u ITERATIONS我找到了解决方案，问题是打印HTML data.frames的函数，R2HTML库。在查找空data.frame的情况下，将失败。
我已经解决了如果打印一个“空”列表，应该找到空列表的位置：）

HTML\u输出\u迭代鉴于提供的消息，
paste（）
命令似乎不太可能出现错误。得到错误后，运行
traceback（）
并将结果添加到问题中，这样我们就可以看到哪个函数实际生成了错误。另外：
          DIRECTORY<-getwd()
          FOLDER<-"/outputs"
          OUTPUTS<-paste(DIRECTORY,FOLDER,sep="")
          PATH_OUTPUTS<-gsub(" ","", OUTPUTS, fixed=TRUE)

Error in rep(paste("\n\t\t<th>", if (sortableDF) "<b class=\"tablesort\">",  : 
  invalid 'times' argument

HTML_OUTPUT_ITERATIONS<-function(df_power_values, df_on_time_values, inventory_DF_List_on_time, DF_inventory_items){
  require(R2HTML)
  x<-1
  h<-1
  DIRECTORY<-getwd()
  FOLDER<-"/outputs"
  OUTPUTS<-paste(DIRECTORY,FOLDER,sep="")
  PATH_OUTPUTS<-gsub(" ","", OUTPUTS, fixed=TRUE)
  HTMLStart(outdir=PATH_OUTPUTS, file="iterations",extension="html", echo=FALSE, HTMLframe=TRUE)
  HTML.title("Iterations Log Report", HR=1)
  HTMLhr()
  HTMLhr()
  HTML.title("Log results of iterations powers sequence", HR=1)
  HTMLhr()
  while(x<=length(inventory_DF_List)){
  HTML.title("Power:")
      HTML(df_power_values[x,1], digits=4)
    HTML.title("Inventory:")
      HTML(inventory_DF_List[x])
    x<-x+1
  }
  HTMLhr()
  HTML.title("Log results of iterations Time On sequence", HR=1)
  HTMLhr()
  while(h<=nrow(df_on_time_values)){
    HTML.title("On Time value:")
      HTML(df_on_time_values[h,1], digits=4)
    HTML.title("Inventory:")
    if(nrow(as.data.frame(inventory_DF_List_on_time[h]))>0){
      HTML(inventory_DF_List_on_time[h])
    }else{
      HTML.title("EMPTY")
    }
    h<-h+1
  }
  HTMLhr()
  HTMLStop()
}