Rのユーザー名とパスワードの検証Shiny app

Question

ユーザーがユーザー名とパスワードを入力してログインするShiny Login Pageを作成しています。

私は、ユーザ名とパスワードがそれぞれusername,passwordのカラムに格納されているログイン資格情報のセットを持っています。

以下は今の問題は、私はそのはpasswordを対応するusernameを検証することはできませんよですserver.r

reactive({validate(
    need(input$Username == df$username, message = FALSE), 
    need(input$Password == df$password, message = FALSE) 
     )}) 

で私のスクリプトで、任意のパスワードを使用して、任意のユーザでログインすることができます。親切に論理を助けてください。

df

username password 
     admin admin 
     jhon jhon 
     test test 
     ipt ipt 
     rock rock 

Answer 1

あなたはそれらを連結し、比較することで一致したユーザー名とパスワードの両方を要求することができます。結果の文字列。私もここでパスワードをハッシュしています。

tbl <- read.table(text ="username password 
         admin admin 
         jhon jhon 
         test test 
         ipt ipt 
         rock rock", 
        header= TRUE, 
        stringsAsFactors = FALSE) 

library(openssl) 

tbl$password <- sha512(tbl$password) 

auths <- apply(tbl, 1, paste, collapse = "_") 

reactive({validate(
    need(paste0(input$Username,"_", sha512(input$Password)) == auths, message = FALSE) 
)})