Question

我对使用粘贴功能和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()
    }

正如您所看到的，我正在使用R2HTML库。我一直在调试代码，我没有看到任何错误，但我是一个非常罕见的错误。我认为错误来自粘贴功能，但不确定。我认为错误出现在代码的这一部分：

          DIRECTORY<-getwd()
          FOLDER<-"/outputs"
          OUTPUTS<-paste(DIRECTORY,FOLDER,sep="")
          PATH_OUTPUTS<-gsub(" ","", OUTPUTS, fixed=TRUE)

我使用此代码获取R项目所在文件夹的路径，然后添加outputs文件夹以保存html报告文件

我得到的错误如下：

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

Answer 1

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

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()
}

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

1 个答案: