我有一个带有活动按钮的表单,问题是我希望重置此表单中的按钮output$exampleFasta = 0
但是它会抛出异常,如何更改变量的数据?或者如果存在类似renderImage的东西,它可以给像id这样的特定属性提供信息。
的index.html
<form class="span12 menu-med-upload">
<div class="row-fluid">
<h3>Upload File .fasta</h3>
<div class="custom-input-file btn btn-inverse">
<input type="file" size="1" name="fileFasta" id="fileFasta" class="input-file" />
Select File
</div>
<img src="/static/img/check.png" class = "custom-input-check">
<div class="span12"></div>
<textarea class = "span12" rows = "10" style="resize: none;" id="textAreaFasta">
</textarea>
</div>
<button id="uploadFasta" type="button" class="btn btn-inverse action-button" >Upload File</button>
<button id="exampleFasta" type="button" class="btn btn-inverse action-button" >Example</button>
</form>
server.R
output$table <- renderText({
if(input$exampleFasta != 0 && input$uploadFasta == 0){
return(myRenderTable(matrixProteinExample(),"table",""))
}
if(input$uploadFasta != 0){
return(myRenderTable(matrixProtein(),"table",nameFile))
}
})
改变这样的事情。但这是错误的。
output$table <- renderText({
if(input$exampleFasta != 0 && input$uploadFasta == 0){
output$exampleFasta <- 0
return(myRenderTable(matrixProteinExample(),"table",""))
}
if(input$uploadFasta != 0){
return(myRenderTable(matrixProtein(),"table",nameFile))
}
})
答案 0 :(得分:3)
如果你问的是如何判断最近点击了哪个actionButton(如果有的话!),那么重置为0就不是这样做的了。而是这样做:
shinyServer(function(input, output, session) {
# Create a reactiveValues object, to let us use settable reactive values
values <- reactiveValues()
# To start out, lastAction == NULL, meaning nothing clicked yet
values$lastAction <- NULL
# An observe block for each button, to record that the action happened
observe({
if (input$exampleFasta != 0) {
values$lastAction <- 'example'
}
})
observe({
if (input$uploadFasta != 0) {
values$lastAction <- 'upload'
})
})
# Then you can use values$lastAction in reactive expressions, outputs, etc.
output$table <- renderText({
if (is.null(values$lastAction))
return(NULL)
if (identical(values$lastAction, 'upload'))
return(myRenderTable(matrixProtein(), "table", nameFile))
if (identical(values$lastAction, 'example'))
return(myRenderTable(matrixProteinExample(), "table", ""))
stop("Unexpected value for lastAction: ", values$lastAction)
})
})