dev/ExampleApp.R

In NRSC/nphys: R package for interpreting neurphysiology field and whole-cell data

library(ggplot2)
#library(Cairo)   # For nicer ggplot2 output when deployed on Linux

ui <- fluidPage(
    # Some custom CSS for a smaller font for preformatted text
    tags$head(
        tags$style(HTML("
      pre, table.table {
        font-size: smaller;
      }
    "))
    ),

    fluidRow(
        column(width = 4, wellPanel(
            radioButtons("plot_type", "Plot type",
                         c("base", "ggplot2")
            )
        )),
        column(width = 4,
               # In a plotOutput, passing values for click, dblclick, hover, or brush
               # will enable those interactions.
               plotOutput("plot1", height = 350,
                          # Equivalent to: click = clickOpts(id = "plot_click")
                          click = "plot_click",
                          dblclick = dblclickOpts(
                              id = "plot_dblclick"
                          ),
                          hover = hoverOpts(
                              id = "plot_hover"
                          ),
                          brush = brushOpts(
                              id = "plot_brush"
                          )
               )
        )
    ),
    fluidRow(
        column(width = 3,
               verbatimTextOutput("click_info")
        ),
        column(width = 3,
               verbatimTextOutput("dblclick_info")
        ),
        column(width = 3,
               verbatimTextOutput("hover_info")
        ),
        column(width = 3,
               verbatimTextOutput("brush_info")
        )
    )
)


server <- function(input, output) {
    output$plot1 <- renderPlot({
        if (input$plot_type == "base") {
            plot(mtcars$wt, mtcars$mpg)
        } else if (input$plot_type == "ggplot2") {
            ggplot(mtcars, aes(wt, mpg)) + geom_point()
        }
    })

    output$click_info <- renderPrint({
        cat("input$plot_click:\n")
        str(input$plot_click)
    })
    output$hover_info <- renderPrint({
        cat("input$plot_hover:\n")
        str(input$plot_hover)
    })
    output$dblclick_info <- renderPrint({
        cat("input$plot_dblclick:\n")
        str(input$plot_dblclick)
    })
    output$brush_info <- renderPrint({
        cat("input$plot_brush:\n")
        str(input$plot_brush)
    })

}


shinyApp(ui, server)