小编use*_*940的帖子

我正在尝试使用xtable在html中创建一个表,但我需要在特定td标记中添加一个类,因为我要做一个动画.问题是没有xtable我不能这样做,因为它太慢了.

可能我需要用xtable表示这个.

myRenderTable<-function(){
  table = "<table>"
  for(i in 1:4862){
    table = paste(table,"<tr><td>",i,"</td>",sep="")
    for(j in 1:5){

      if(j == 5){
        table = paste(table,"<td class ='something'>",i+j,"</td>",sep="")  
      }
      else{
        table = paste(table,"<td>",i+j,"</td>",sep="")
      }
    }
    table = paste(table,"</tr><table>")
  }
  return(table)
}

如果我使用xtable执行此操作,我的应用程序需要15秒,但如果我使用myRederTable函数执行此操作我的应用程序需要2分钟,那么我该如何将此类放在td带有xtable的应用程序中.

我和R一起工作并且很有光泽.

我正在尝试实现一个表单来上传文件,但是当我点击提交按钮时开始做操作,问题是有一个奇怪的错误,我不知道它是什么,我做了一个例子教程,它没有问题,现在我实现相同,但使用index.html,它不起作用.

错误是:"if(输入$ uploadFasta == 0)返回错误(NULL):参数长度为零"

我的index.html是这样的:

<form class="span12 menu-med-upload">
    <div class="row-fluid">
        <center>
          <div class="custom-input-file btn btn-inverse">
            <input type="file" size="1" id="fileFasta" class="input-file" />
          </div>
        </center>
        <button id="uploadFasta" type="button" class="btn action-button shiny-bound-input" >go!</button>
    </div>
</form>

我的server.R就像:

output$table <- renderText({
    if(input$uploadFasta == 0)
        return(NULL)
    myRenderTable()
})

有人知道这是什么问题,谢天谢地,如果这个话题以前开过,我就找不到了.