Tracking of Shiny application

[vinayprakash808]

Hi all, need small help here.

I am using below code to track my shiny application. But this is with respect to app.R file. In case I have both ui.R and server.R, may I know how to incorporate this junk of code. I tried putting separately under ui.R and server.R, but did not work. please help

## Save logs on disk

if (interactive()) {
    
    # temporary directory for writing logs
    tmp <- tempdir()
    
    # when app stop,
    # navigate to the directory containing logs
    onStop(function() {
        browseURL(url = tmp)
    })
    
    # Classic Iris clustering with Shiny
    ui <- fluidPage(
        
        headerPanel("Iris k-means clustering"),
        
        sidebarLayout(
            sidebarPanel(
                selectInput(
                    inputId = "xcol",
                    label = "X Variable",
                    choices = names(iris)
                ),
                selectInput(
                    inputId = "ycol",
                    label = "Y Variable",
                    choices = names(iris),
                    selected = names(iris)[[2]]
                ),
                numericInput(
                    inputId = "clusters",
                    label = "Cluster count",
                    value = 3,
                    min = 1,
                    max = 9
                )
            ),
            mainPanel(
                plotOutput("plot1")
            )
        )
    )
    
    server <- function(input, output, session) {
        
        # Store JSON with logs in the temp dir
        track_usage(
            storage_mode = store_json(path = tmp)
        )
        
        # classic server logic
        
        selectedData <- reactive({
            iris[, c(input$xcol, input$ycol)]
        })
        
        clusters <- reactive({
            kmeans(selectedData(), input$clusters)
        })
        
        output$plot1 <- renderPlot({
            palette(c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3",
                      "#FF7F00", "#FFFF33", "#A65628", "#F781BF", "#999999"))
            
            par(mar = c(5.1, 4.1, 0, 1))
            plot(selectedData(),
                 col = clusters()$cluster,
                 pch = 20, cex = 3)
            points(clusters()$centers, pch = 4, cex = 4, lwd = 4)
        })
        
    }
    
    shinyApp(ui, server)
    
}