光沢のあるアクションボタンをクリックして時間を節約する

Question

これらのボタンをクリックすると、開始時間と終了時間を節約するための光沢のあるアプリケーションを作成しました。私はStart、EndとDownloadのボタンを持っていますが、これはStartとEndのボタンをクリックしてからDownloadボタンをクリックすると、ファイルを.csvに保存した時間を節約するためのものです。しかし、それはダウンロードボタンのクリック時間を節約しています。別の時間を適切に保存してください。

library(shiny) 

shinyUI(fluidPage(
    titlePanel("Header"), 
    sidebarLayout(
    sidebarPanel(
     actionButton("start", "Start"), 
     tags$br(), 
     actionButton("end", "End"), 
     tags$br(), 
     downloadButton("downloadData", "Download") 
    ), 

    mainPanel(

    ) 
) 
)) 

shinyServer(function(input, output) { 

    startTime <- eventReactive(input$start,{ 
    Sys.time() 
    }) 

    endTime <- eventReactive(input$end,{ 
    Sys.time() 
    }) 


    data <- reactive({data.frame(start = startTime(), 
           end = endTime())}) 


    output$downloadData <- downloadHandler(
    filename = function() { 
     "download.csv" 
    }, 
    content = function(file) { 
     write.csv(data(), file, row.names = F) 
    } 
) 

}) 

Answer 1

グローバル変数を使用すると効果があります。下記の例（セッションごとのグローバル変数を使用するように編集されています）。

library(shiny) 

ui <- shinyUI(fluidPage(
    titlePanel("Header"), 
    sidebarLayout(
    sidebarPanel(
     actionButton("start", "Start"), 
     tags$br(), 
     actionButton("end", "End"), 
     tags$br(), 
     downloadButton("downloadData", "Download") 
    ), 

    mainPanel(

    ) 
) 
)) 

server <- shinyServer(function(input, output) { 

    starttime <- NULL 
    endtime <- NULL 

    observeEvent(input$start, { 
    starttime <<- Sys.time() 
    }) 

    observeEvent(input$end, { 
    endtime <<- Sys.time() 
    }) 

    output$downloadData <- downloadHandler(
    filename = function() { 
     "download.csv" 
    }, 
    content = function(file) { 
     data <- data.frame(start=starttime, end=endtime) 
     write.csv(data, file, row.names = F) 
    } 
) 

}) 

shinyApp(ui = ui, server = server)