made slider steps of brew time 0.2
This commit is contained in:
parent
baa9f89cea
commit
36b85b24a8
|
@ -34,9 +34,9 @@ ui <- navbarPage("EpriLog",
|
|||
selectInput("alias", "Whats the nick name of the coffee?", choices = coffees$alias, multiple = FALSE, selected = lastUsedParameters$Alias),
|
||||
#selectInput("coffeeName", "Whats the name of the coffee?", coffees$coffeeName, multiple = FALSE),
|
||||
# Grind Time
|
||||
sliderInput("grindTime", "Ginding Time", value = 14, min = 0, max = 30),
|
||||
# Grind Size
|
||||
sliderInput("grindSize", "Ginding Size", value = 7, min = 0, max = 70),
|
||||
sliderInput("grindTime", "Ginding Time", value = 14, min = 0, max = 30, step = 0.2),
|
||||
# Grind Size (my Grinder can go up to 70 but thats no longer Espresso..)
|
||||
sliderInput("grindSize", "Ginding Size", value = 7, min = 0, max = 30),
|
||||
# Flow rate (0 = none, 10 = perfect, 20 = water)
|
||||
sliderInput("flowResult", "Flow rate (10 is Perfect):", value = 10, min = 0, max = 20),
|
||||
# Taste Rating (sour = none, 10 = perfect, 20 = bitter)
|
||||
|
|
Loading…
Reference in New Issue