2013-04-01 126 views
5

我想实现一个窗体上传文件,但开始做操作,当我点击一个提交按钮,问题是有一个奇怪的错误,我不知道什么是它,我做了教程的例子,它的工作没有问题,现在我实现相同,但与index.html,它不工作。按钮提交R与闪亮

的错误是: “错误的,如果(输入$ 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() 
}) 

有人知道出了什么问题,并感谢所有和抱歉,如果这个话题是之前开放的,但我找不到。

回答

2

动作按钮是一个自定义输入绑定,我敢打赌它没有被加载。

在同一目录server.R添加global.R文件,并将它包含此:

addResourcePath(
    prefix='actionbutton', 
    directoryPath=system.file('actionbutton', 
          package='shinyIncubator')) 

然后在你的index.html,添加以下<head>

<script src="actionbutton/actionbutton.js"></script> 

(一如既往,一定要有明确的关闭</script>标签 - 不要使用<script />。)