-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
78 lines (71 loc) · 2.68 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
78
# This is the user-interface definition of a Shiny web application.
# You can find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com
#
library(shiny)
shinyUI(fluidPage(
# Application title
titlePanel("Snowflake Builder v.1.0"),
h4("Matt Tyers"),
h3("How the algorithm works..."),
h5(" - Start with a number of line segments (say, 6) connected at a single point, and radiating in all directions"),
h5(" - At some fractional distance on each segment, add a branch to either side at some given angle"),
h5(" - Repeat the previous step n times, with the segments in each iteration branching off from the segments that were the branches in the last iteration."),
plotOutput("demoPlot",width=700,height=200),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
h3("Snowflake parameters..."),
sliderInput("n",
"Number of iterations:",
min = 1,
max = 12,
step=1,
value = 2),
sliderInput("nsides",
"Number of sides:",
min = 1,
max = 12,
step=1,
value = 6),
sliderInput("angle",
"Branch angle (degrees):",
min = 1,
max = 179,
step=1,
value = 60),
sliderInput("nbranch",
"Number of branches:",
min = 1,
max = 5,
step=1,
value = 1),
sliderInput("lastbranch",
"Last branch location:",
min = 0.01,
max = .99,
step=.01,
value = .55),
h3("Graphical parameters..."),
checkboxInput("color","Draw in color",value=FALSE),
sliderInput("colramp",
"Piece of the rainbow",
min = 0,
max = 1,
value = c(0,1)),
checkboxInput("raininvert","Invert colors",value=FALSE),
checkboxInput("lwd","Weight line thickness",value=FALSE),
h3("Performance parameter..."),
h6("This increases the built-in limit on how many iterations can be performed. Setting this to a larger number will allow more complex shapes, but may result in slow calculations."),
numericInput("maxsize",
"Max allowable vector",value = 50000),
downloadButton('downloadPlot', 'Download image...')
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("bigPlot",width=800,height=800)
)
),
plotOutput("galleryPlot",width=1200,height=400)
))