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循环对我没有任何其他建议，或者在使用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?")
}
})

匹配来自整个csv文件R Shiny的用户输入

1 个答案: