将数据导出到 SQL 数据库时闪亮禁用操作按钮 x 秒

Question

我有一个带有动态数据的手控表，我正在使用 sqlSave 代码将它上传到 MSSQL 数据库，并使用闪亮的“提交”按钮。

但是，我无法找到任何将禁用操作按钮的功能，比如说 10 秒。我尝试了 shinyjs::disable 和 withProgress，incProgress 东西，但是 none 成功了。

谢谢，

dbhandle <- odbcDriverConnect('driver={SQL Server};server=....;database=...;trusted_connection=true')

 withProgress( 
 sqlSave(dbhandle, dat = some data), 
      tablename = "Budget_Tool", 
      rownames = F, append = T, verbose = T, fast = F, colnames = F, safer = 
      T), value = 1, 
      style = "notification", message = "Submitting, please wait..")

    --------------------
       actionButton("submit", "Submit", class = "btn-primary",
                    style="color: #fff; background-color: #337ab7; border-
      color: #2e6da4; font-size: 20px;"),

Answer 1

将动作函数前后的禁用和启用集成在一起，它或多或少是直截了当的。

这是一个示例片段：

library(shiny)
library(shinyjs)

ui <- shinyUI({
  shiny::fluidPage(
    useShinyjs(),  # Set up shinyjs
    actionButton(inputId = "start", label = "start")
  )
})

server <- shinyServer(function(input, output){
  actionFunction = function(){
    shinyjs::disable("start")

    # Replace actual code instead
    withProgress(message = 'Calculation in progress',
                 detail = 'This may take a while...', value = 0, {
                   for (i in 1:15) {
                     incProgress(1/15)
                     Sys.sleep(0.25)
                   }
                 })

    shinyjs::enable("start")
  }

  # Run action function on button click  
  onclick("start", actionFunction())
})

shinyApp(ui,server)

Answer 2

我用隐藏和显示修复了它；

 observeEvent(input$submit, {
  hide('submit', animType = "fade", time = 5)
asd <- as.data.frame(cbind(Department = rv$data[,2], Cost_Summary_Key = 
  rv$data[,1], Calculated_Budget = rowSums(rv$data[,3:14]))) %>% 
  left_join(CSK_Budget, c("Department", "Cost_Summary_Key"))

   asd <- asd %>% mutate(Deviation = (as.numeric(Budget_2017) - rowSums(rv$data[,3:14])))

   x <- c()

   for (i in 1:nrow(asd)) {

  if(asd[i,5] >= -0.05)
  {x[i] <- TRUE} else {x[i] <- FALSE}

}

moment <- substr(Sys.time(), 1, 10)
moment2 <- substr(Sys.time(), 12, 19)
personel <- input$userName


if( all(x))
{


  dbhandle <- odbcDriverConnect('driver={SQL Server};server=...;database=...._SQL;trusted_connection=true')

  withProgress( 
    sqlSave(dbhandle, dat = (cbind(melt(rv$data, na.rm = F, varnames = c(Department, Cost_Summary_Key), as.is = F), Year = "2017", 
                                   Time_Stamp1 = moment, Time_Stamp2 = moment2, User = personel)), 
            tablename = ".....", 
            rownames = F, append = T, verbose = T, fast = F, colnames = F, safer = T), value = 1, 
    style = "notification", message = "Submitting, please wait..")


  js_string <- 'alert("Succes!!");'
  session$sendCustomMessage(type='jsCode', list(value = js_string))
  showNotification("Thanks, your response was submitted successfully!", duration = 5, type = "warning")
}
else {showNotification("Check Your Budget Items !!", duration = 3, type = "warning")}

odbcCloseAll()   
show('submit', animType = "slide", time = 1)
  })

将数据导出到 SQL 数据库时闪亮禁用操作按钮 x 秒

Shiny disabling the actionbutton for x seconds while exporting data to SQL DB

r

handsontable

shiny

rhandsontable