R Shiny 将 TextInput 的内容放入 sql 查询中

Question

我遇到了 R shiny 和 sqlite 的问题。我的应用程序应该对用户进行身份验证并加载 his/her 首选项。

这是我的代码：

server.R

library(shiny)
library(shinyBS)
library(dplyr)
library(lubridate)

library(DBI)
library(RSQLite)

############################
#    Database functions    #
###########################

# Connect the user to the dtabase app
connect <- function(userName,pwd){
    #Put a generic path here
  db <- dbConnect(SQLite(), dbname = "my_path/database.db")
  #Query to get the correct passwd
  qry = paste('SELECT password from USERS where name = "',userName,'"')
  res= dbGetQuery(db,qry )

  ifelse(res==pwd,"connected","unable to connect to the database")
  dbDisconnect(db)

}

function(input, output,session) {

  observeEvent(input$connectButton, {
   userName= renderPrint(input$username)
   print(userName)
   userPwd = paste(input$password)
       connect(user = userName,pwd = userPwd)

  })

ui.R

shinyUI(fluidPage(
titlePanel("Authentification"),
textInput('username', label="User name"),
textInput('password', label= "password"),
actionButton("connectButton", label='Connect'),
actionButton("subscribeButton",label='Subscribe')   
)
)

app.R

library(shiny)
library(shinyBS)
####### UI
ui <- source("ui.R")
####### Server
varserver <- source("server.R")
####### APP
shinyApp(ui = ui, server = varserver)

我的问题是当我想为查询输入 TextInput 的内容时。我尝试了几种方法

在当前版本中，renderPrint(input$username) returns 我的东西似乎是一个函数，但它似乎没有用。

我也尝试了另一种方式，仅使用

userName=paste(input$userName)

这个 returns 我是 textField 的内容，但是当我将它集成到查询中时，它会显示

[1] "SELECT password from USERS where name = \" test \""

然后我收到错误

Warning: Error in matrix: length of 'dimnames' [2] not equal to array extent

我的objective是有这样的查询

"Select password FROM USERS where name = "username"

和username表示TextInput的内容。

编辑

我知道使用这个版本进行查询，它提出了语法正确的查询

qry = paste0('SELECT password from USERS where name = \'',userName,'\'')
res= dbGetQuery(db,qry )

但我现在面临这个问题:

Warning: Error in matrix: length of 'dimnames' [2] not equal to array extent

当我运行方法

connect(db,qry)

我认为问题出在我获取 TextInput 内容的方式：我使用

function(input, output,session) {

  observeEvent(input$connectButton, {
   userName= paste0(input$username)
   userPwd = paste0(input$password)
       connect(user = userName,pwd = userPwd)

  })

你怎么看这个？

Answer 1

我找到了一个有效的解决方案

connect <- function(userName,pwd){
    #Put a generic path here
  db <- dbConnect(SQLite(), dbname = "my_path/database.db")
  #Query to get the correct passwd
  qry = paste0("SELECT password from USERS where name = \'",userName,"\'")
  res= dbGetQuery(db,qry )
  res = paste0(res)
  ifelse(res==pwd,print("connected"),print("unable to connect to the database"))
  dbDisconnect(db)
}

我只是在简单的引号之间进行论证

R Shiny 将 TextInput 的内容放入 sql 查询中

R Shiny put content of a TextInput in sql queries

sqlite

r

textinput

shiny

shinydashboard