public
/
eprilog
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

made slider steps of brew time 0.2

This commit is contained in:
friedemann.blume 2024-01-12 23:29:03 +01:00
parent baa9f89cea
commit 36b85b24a8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
eprilog.r
View File

@ -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("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), #selectInput("coffeeName", "Whats the name of the coffee?", coffees$coffeeName, multiple = FALSE),
# Grind Time # Grind Time
sliderInput("grindTime", "Ginding Time", value = 14, min = 0, max = 30), sliderInput("grindTime", "Ginding Time", value = 14, min = 0, max = 30, step = 0.2),
# Grind Size # Grind Size (my Grinder can go up to 70 but thats no longer Espresso..)
sliderInput("grindSize", "Ginding Size", value = 7, min = 0, max = 70), sliderInput("grindSize", "Ginding Size", value = 7, min = 0, max = 30),
# Flow rate (0 = none, 10 = perfect, 20 = water) # Flow rate (0 = none, 10 = perfect, 20 = water)
sliderInput("flowResult", "Flow rate (10 is Perfect):", value = 10, min = 0, max = 20), sliderInput("flowResult", "Flow rate (10 is Perfect):", value = 10, min = 0, max = 20),
# Taste Rating (sour = none, 10 = perfect, 20 = bitter) # Taste Rating (sour = none, 10 = perfect, 20 = bitter)