匹配整个csv文件R闪亮的用户输入

Question

对不起这个问题我是R-shiny的新手我试图检查用户输入是否在csv文件中可用但是它只是匹配第一行的csv文件而不是整个csv文件列。我尝试使用数组来检查自己这样的事情：

output$usignin <- renderUI({
login <- read.csv("check.csv", header = TRUE, na.strings = c("","NA"))
na.omit(login)
asd = match(login$email[3], input$email)
zxc = match(login$password[3], input$password)
if((!is.na(asd)) && (!is.na(zxc))){
  h4("Correct")
}
else{
  h4("Forgot Password?")
}
})

这件事有效，但我希望动态完成而不是静态设置login$email[n]中的数组值。尝试循环对我没有任何其他建议，或者我可能在使用for循环时有任何错误？

Answer 1

使用如此小的代码示例来判断它有点困难，但这应该有效：

output$usignin <- renderUI({
login <- read.csv("check.csv", header = TRUE, na.strings = c("","NA"))
na.omit(login)

asd = match(input$email, login$email)
zxc = match(input$password, login$password)

test_match <- asd == zxc

if(!is.na(test_match) && test_match){
  h4("Correct")
}
else{
  h4("Forgot Password?")
}
})