-
Notifications
You must be signed in to change notification settings - Fork 2
/
ui.r
77 lines (46 loc) · 1.65 KB
/
ui.r
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
##################################################### Integration ###########################################################
#load package
library(shiny)
library(rgdal)
library(leaflet)
library(shinycssloaders)
library(shinythemes)
library(tibble)
# ui object
ui <- fluidPage(
theme = shinytheme("lumen"),
#title
h2 ("Cost-Effective Animal Management via Environmental Capacity"),
leafletOutput(outputId = "map"),
flowLayout(
textInput("le", "Longitude (E)", "104.0364"),
textInput("lw", "Longitude (W)", "103.6051"),
textInput("ln", "Latitude (N)", "1.472969"),
textInput("ls", "Latitude (S)", "1.219747"),
textInput("nrows", "Number of rows", "56"),
textInput("ncols", "Number of columns", "96")
),
fileInput(
inputId = "dens",
label = "Upload density (csv file)",
accept = c(".csv")
),
p("Average per hectare in selected cells"),
verbatimTextOutput("aver", placeholder = TRUE),
flowLayout(
textInput("gr", "Growth rate (per month)","0.02775"),
textInput("expct", "Density must under____ per ha", "5"),
textInput("mth", "Achieve target in____months", "24")
),
fileInput(
inputId = "cost",
label = "Upload cost (csv file)",
multiple = TRUE,
accept = c(".csv")
),
actionButton("calculate", "Submit", class = "btn btn-primary"),
p("Total cost"),
verbatimTextOutput("sum_v", placeholder = TRUE),
p("Detailed management suggestions:"),
downloadButton("downloadData",label = "Save as KML", class = "btn btn-primary"),
)#end UI