0
我將下面的file.R
作爲我的server.R
的來源。在這裏,我嘗試選擇一些名稱並在提交後提交,我想顯示'謝謝您提交'消息和一些gvisTable
。我的actionButton
似乎無法正常工作。對不起,我無法提供整個代碼和樣本數據,因爲這是如此之大。`actionButton` action in Shiny R
Nomination <- function(){
{
fluidRow(column(3,
h4(tags$div(paste0('Nominations'), style='color:blue'),
h4(tags$div(textOutput('alert3'), style='color:green')),
h4(tags$div(textOutput('alert2'), style='color:red')),
selectInput(inputId = "person",label = "Select a Person:", choices = sDF$Name, selected = NULL, multiple=TRUE, selectize=TRUE),
br(),br(),
uiOutput('nomiButton'),
htmlOutput('tableNomi'),
tableOutput("values")
)))
}
if(input$nominate)
{
fluidRow(column(3,
h4(tags$div(paste0('Nominations'), style='color:blue'),
h4(tags$div(textOutput('alert1'), style='color:red')),
htmlOutput('tableNomi')
)))
}
}
output$nomiButton = renderUI({
if(length(input$person)>users_list$Number)
return(NULL)
return(actionButton('nominate', 'Nominate'))
})
output$alert1 = renderText({
return(paste0('Thank you for the Submission'))
})
output$alert2 = renderText({
totNomi = users_list$Number
selNomi = length(input$person)
if(selNomi>totNomi) paste0('Please do not select more than ',totNomi)
})
output$alert3 = renderText({
totNomi = users_list$Number
selNomi = length(input$person)
if(selNomi<totNomi) paste0('Please select ',totNomi - selNomi, ' Nomination(s)')
})
output$tableNomi = renderGvis({
nominations = sDF[sDF$Name %in% input$person,]
nominations = unique(nominations, by='Name')
write.table(nominations,file='collect_data/nominations.csv', append=T, sep=',', col.names=F, row.names=F, eol='\r')
gvisTable(nominations, options=list(height=1500, width=800))
})