pr2-primers-shiny/app.R at master · pr2database/pr2-primers-shiny · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
# User interface ----------------------------------------------------------

ui <- fluidPage(

  # Script to close the windows after some inactivity

  # tags$script(inactivity),

  # Title
  title = "Primer database",
  titlePanel(div(img(src='pr2_logo.png', width="80"),"The PR2 primer database - v. 2.1.1")),


  # --- Side bar
  sidebarLayout(side_bar, main_panel)
)


# Server ------------------------------------------------------------------

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

  # Stop the application of the session is closed (after 10 min)
  session$onSessionEnded(stopApp)

  # 1 - Primer table

    source("R/panels/panel_1_primers.R", local = TRUE)

  # 2 - Primer set table

    source("R/panels/panel_2_primer_sets.R", local = TRUE)


  # 3 - Plot matches

   source("R/panels/panel_3_summary.R", local = TRUE)

  # 4 - Plot matches for one set of primer and one taxonomy group

    source("R/panels/panel_4_one_set.R", local = TRUE)

  # 5 - Compute matches for user provided primer set

    source("R/panels/panel_5_custom_set.R", local = TRUE)

  # 6 - Compute matches for user provided primer

    source("R/panels/panel_6_custom_primer.R", local = TRUE)

  # Utils - Dynamic taxonomy boxes

    source("R/panels/dynamic_taxo_boxes.R", local = TRUE)


  # Test
  output$test <- DT::renderDataTable(plot_matches_sg(input$primer_set_id),
                                     rownames = FALSE)
}

# Run the shiny app -------------------------------------------------------


shinyApp(ui, server)