R 基于输入向框架添加日期

我在R中有一个数据集的输入变量，用于评估工具列表。情况如下：

type <- as.integer(readline(prompt="Enter a Barcode: "))

---

多谢各位

我希望你能从中得出结论-这真的很相似。让我们通过以下方式完成：

# load sample data
dd = read.table(text = "Barcode_Number, Date_Used
5698, 2018-07-07
4570, 2018-07-11", header = TRUE, sep = ",")

# make sure the date columns is Date class
dd$Date_Used = as.Date(dd$Date_Used)

# get barcode to update
barcode_update <- as.integer(readline(prompt="Enter a Barcode: "))

# make the update
dd[dd$Barcode_Number == barcode_update, "Date_Used"] = Sys.Date()

作业的左侧是相同的，形式相同

dd[dd$Barcode_Number == barcode_update, "Name of column to update"] = ...<new values>...

dd[dd$Barcode\u Number==Barcode\u update，“要更新的列的名称”]=。。。。。。

数据框用括号引用，括号中使用

数据\u名称[行、列]

。在这两种情况下，我们都希望更新某些行：条形码编号与用户输入匹配的行。所以我们做这个测试：

dd[dd$Barcode\u Number==Barcode\u update，]

。您可以使用

dd[3，]

更新第三行，使用

dd[c（1，2，5），]

更新第一、第二和第五行，或者使用一些非常复杂的条件，可能是所有包含0的条形码

dd[grepl（“0”，dd$Barcode\u Number），]

在

[

的column参数中，我们只需要更新列的名称，用引号括起来。很好，也很简单。您甚至可以在其中使用一个变量，其中存储了列名

---

右边是新值。这个问题很简单-您希望新值是由

Sys.date

返回的日期，所以我们要

=Sys.date（）

（或者

如果这是一个不常见的事情，只需创建一个单行帧（
data.frame（条形码编号=类型，使用的日期=Sys.date（））
）和
rbind
原始数据.frame.@r2evans.感谢您的回复，但我并不是在寻找一些不常见的东西，更多的东西可以根据使用Sys.date输入的日期进行更新，并进行更新。
dd[dd$Barcode_Number == barcode_update, "Date_Used"]  = Sys.Date()
dd[dd$Barcode_Number == barcode_update, "Times.Used"] = df[df$Barcode_Number == tool, "Times.Used"] + 0.5

dd[dd$Barcode_Number == barcode_update, "Name of column to update"] = ...<new values>...