使用R创建计数器

Question

我正在尝试创建一个计数器，用于跟踪输入某个条形码编号（对于工具）的数量。这就是我 尝试过：

myfunction <- function(Barcode.Number){
tool <- readline(prompt="Enter tool: ")
df1 <- df %>% filter(df$Barcode.Number == tool) %>% 
select(Type.Equipment, Location, REMARKS) 
if (tool == i){
df$Times.Used[i] <- i+1
}
return(df1)
 }

我想要做的是有一个输入值（条形码 数字），输出附加列信息（Type.Equipment， 位置，备注），从我的数据框架，以及添加到 计数器列（Times.Used），只要它被用作输入。非常感谢！

以下是我从框架中获得的一些示例数据： Barcode.Number，Equipment，Manufacture，TIMES.USED

4041，手电筒，Surefire，

4044，Combo Pad Lock，Master，

4641,3k Generator，本田，

希望有所帮助。至于调用函数和输出，我只想在需要输入时调用它。所以我最好运行程序，输入语句会显示，然后一旦输入条形码，它就会运行该功能。不一定需要实际输出，只需更新数据帧。只是一个接受输入的函数，并添加到条形码行＆＃39; TIMES USED＆＃39;列，以便稍后可以回顾它以评估某个东西的使用量。谢谢！