From 13fdbbb4a8cbd92362765c53a83ddb9c05e33705 Mon Sep 17 00:00:00 2001
From: "friedemann.blume" <friedemann.blume@yukawa.de>
Date: Sat, 13 Jan 2024 16:05:49 +0100
Subject: [PATCH] small clean up

---
 eprilog.r | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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(