Совпадение ввода пользователя из всего файла CSV R блестящий - PullRequest
Новая
       11

Совпадение ввода пользователя из всего файла CSV R блестящий

1 голос
/ 11 апреля 2019

Извините за этот вопрос, я новичок в R-блестящем. Я пытаюсь проверить пользовательский ввод, если он доступен в CSV-файле или нет, но он просто соответствует 1-й строке 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].Попытка цикла не сработала для меня, другие предложения, или я мог допустить ошибку при использовании цикла?

1 Ответ

0 голосов
/ 11 апреля 2019

С таким небольшим примером кода сложно сказать, но это должно сработать: 

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?")
}
})
...