DS_kursapp/ui.R at master · ErlendNilsen/DS_kursapp · 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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142

library(shiny)
library(knitr)
library(rmarkdown)

shinyUI(fluidPage(
  br(),
  img(src = "logo_web.png", width = "300px", height = "50px"),
  br(),
  br(),
  titlePanel(h2("DISTANCE-SAMPLING-ANALYSER: KURSMODUL")),
  br(),
  hr(),

  br(),
  br(),
  br(),
  sidebarLayout(position="left",
    sidebarPanel(
      helpText(h4("Oversikt"),p("Her dukker det opp hjelpefunksjoner som er tilpasset
               den siden du er på. Dette gjør det mulig for deg å laste opp kursfila
                og utforske datasettt på en enkel måte")),

      tags$hr(),
      conditionalPanel(
        "$('li.active a').first().html()==='Last opp kursfil'",

      helpText("Her kan du laste opp og se på kursfila. Dersom den ser merkelig ut
                   skyldes dette trolig at du ikke har valgt riktig filformat i menyen til venstre. Sørg
               for at du har lastet opp fila i riktig format før du går videre"),

      fileInput('file1', 'Se på kursfila',
                accept=c('text/csv',
                         'text/comma-separated-values,text/plain',
                         '.csv')),


      radioButtons('sep', 'Filformat',
                   c(Comma=',',
                     Semicolon=';',
                     Tab='\t'),
                   ';'),
      br(),
      br()

      ),


      conditionalPanel(
        "$('li.active a').first().html()==='Histogram'",
        helpText("Velg hvor mange grupperinger (søyler) du ønsker i hisogrammet som vises til høyre på siden"),
        numericInput("bins1", 'Antall grupperinger', value=5, width="170px"),
        selectInput("histcol", "Farge på histogram", choices=c(Blå="cornflowerblue", Grå="grey",
                                                               orange="darkgoldenrod"), width="170px")
        ),


      conditionalPanel(
        "$('li.active a').first().html()==='Summarisk oversikt'",
        helpText("Velg hvilken målestokk som er benyttet for de oppgitte linjeavstander og
                 linjelengder, og hvorvidt du ønsker oversikt linje for linje eller samlet"),
        br(),
        radioButtons("desc1", 'Vis oversikt', c(Linjevis='lin', Samlet='saml'), 'lin'),
        br(),
        radioButtons("LiAv", 'Linjeavstand er oppgitt i', c(Meter='meter', Centimeter='cm'), 'meter'),
        br(),
        radioButtons("Taks", 'Linjelengde er oppgitt i', c(Meter='meter', Kilometer='km'), 'meter'),
        br()


      ),

      conditionalPanel(
        "$('li.active a').first().html()==='Distance Sampling'",
        helpText("Her kan du gjøre diverse valg knyttet til analysene og
                  hvordan du vil se på resultatene. Når du har gjort dine valg,
                  trykk på knappen Analyser data"),
        br(),
        br(),
        radioButtons("Dens", 'Tetthet måles i', c(Kvadratmeter='meter', Kvadratkilometer='km'), 'km'),
        br(),
        br(),
        numericInput("bins2", 'Antall grupperinger', value=7, width="170px"),
        br(),
        br(),
        actionButton("go_analyse", "Analyser data!", icon("thumbs-up")),
        br()

        )


    ),
    mainPanel(width=5,
      tabsetPanel(type="pills",
        tabPanel("Hjem",
                 includeHTML("testpage.html")
                 ),

        tabPanel("Last opp kursfil",
                 br(),
                 br(),
                 h4("Oversikt over kursfila"),
                 p(""),
                 br(),
                 tableOutput('contents')),

        tabPanel("Histogram",
                 br(),
                 br(),
                 h4("Ovsersikt over linjeavstander"),
                 br(),
                 plotOutput("distPlot")),


        tabPanel("Summarisk oversikt",
                 br(),
                 br(),
                 h4("Summarisk oversikt over datasettet"),
                 br(),
                 br(),
                 tableOutput("Deskr")),

        tabPanel("Distance Sampling",
                 br(),
                 br(),
                 h4("Distance sampling-analyser"),
                 br(),
                 br(),
                 tableOutput("Distance"),
                 br(),
                 br(),
                 plotOutput("Distance3", width="600px"))

      )
    )
  ),
  hr(),
  h5("Koden til denne appen kan lastes ned på", tags$a(href="https://github.com/ErlendNilsen/DS_kursapp", "GitHub")),
  h5("Har du spørsmål knyttet til denne applikasjonen finner du kontaktinformasjon", tags$a(href="http://honsefugl.nina.no/Innsyn/Home/Kurs", "her"))
)
)