shiny/app.R

In pchhina/indoorLocationML: Predicts Indoor Location of a Subject based on WIFI Fingerprint

library(shiny)
library(ggplot2)

ui <- fluidPage(
                sidebarLayout(
                              sidebarPanel(
                                           actionButton("rand", "Locate")
                              ),
                              mainPanel(plotOutput(outputId = "point"))
                ))

server <- function(input, output) {
    sampleData <- eventReactive(input$rand, 
                                testingData[sample(1:1111,1), 1:522])
    output$point <- renderPlot({
    obsLong <- sampleData()$LONGITUDE
    predLong <- predict(rfFit,sampleData())
    obsLat <- sampleData()$LATITUDE
    predLat <- predict(rfFitLat, sampleData())
    df <- data.frame(cat = c("obs", "pred"),
                     long = c(obsLong, predLong),
                     lat = c(obsLat, predLat))
    ggplot(data = df, aes(long, lat)) +
               geom_point(shape = 21,
                          color = "yellow",
                          fill = "black",
                          size = 5,
                          stroke = 2) +
               scale_x_continuous(limits = c(-7696, -7300),
                                  minor_breaks = seq(-7700, -7300, by = 20)) +
               scale_y_continuous(limits = c(4864745, 4865017),
                                  minor_breaks = seq(4864740, 4865020, by = 20)) +
               theme(panel.background = element_rect(fill = "black"),
                     panel.grid.major = element_line(color = "grey"),
                     panel.grid.minor = element_line(color = "grey"))
    })
}

shinyApp(ui = ui, server = server)