diff --git a/eprilog.r b/eprilog.r index 72bf7eb..e41ddb7 100644 --- a/eprilog.r +++ b/eprilog.r @@ -19,7 +19,6 @@ coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row. # get last used coffee lastUsedParameters <- tail(brews, n=1) -lastUsedParameters$Alias ui <- navbarPage("EpriLog", tabPanel("Brews", @@ -97,8 +96,8 @@ server <- function(input, output, session){ coffees <- (read.csv(file = "./data/coffees.csv", header = TRUE, sep = ",", row.names = 1)) # get last used coffee + lastUsedParameters <- tail(brews, n=1) - lastUsedParameters$Alias # Render Brew History Table output$history = DT::renderDataTable(