반짝 반짝 빛나는 액션 버튼 클릭시 절약 시간

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)