作者psinqoo (零度空间)
看板R_Language
标题[问题] shiny mysql
时间Sun May 10 19:44:17 2015
文章分类提示:
- 问题: 当你想要问问题时，请使用这个类别
[问题类型]:
经验谘询(我想用R 连接某些资料库，请问大家的经验)
[软体熟悉度]:
请把以下不需要的部份删除
使用者(已经有用R 做过不少作品)
[问题叙述]:
请简略描述你所要做的事情，或是这个程式的目的
ui.r
textInput("a", "帐号: ", ""),
textInput("b", "密码: ", ""),
d1<-c("course","mysql","world")
selectInput("c", "选择资料库",choices =d1),
server.r
con <- dbConnect(MySQL(), user="input$a", password="input$b", dbname=input$c,
host="l92.XXX.XXX.XXX")
这段要怎麽写 似乎常碰到这种问题
底下这还是错的
user=input$a, password=input$b, dbname=input$c,
或着
dbSendQuery(con,"insert into ceotable values(input$age,input$order))"
都会遇到 似乎没好方法
[程式范例]:
张贴能够重现错误的程式码，可以帮助版友更快的帮你解决问题
程式码可贴於以下网站：
[环境叙述]:
[关键字]:
shiny
RMySQL
选择性，也许未来有用
--
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.140.230.244
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1431258260.A.A38.html
1F：→ Wush978: 你可以建立多个connection物件，每个对应到一个database 05/10 22:55
2F：→ Wush978: 也可以等request来的时候才建立connection<然後断掉 05/10 22:56
3F：→ Wush978: 阿，应该也可以在request中使用dbGetQuery+SQL切换资料库 05/11 00:38
4F：推 Wush978: 这样应该最好 05/11 00:38
※ 编辑: psinqoo (111.249.18.48), 05/14/2015 12:18:25
5F：→ Wush978: 由使用者透过shiny传送资料库帐号密码不是一个好主意 05/14 15:26
6F：→ Wush978: 直接把帐号密码写死在global.R + 权限管理比较好 05/14 15:27
是的,最後我把他写死。
但是问题来了
insert 资料来是问题
dbSendQuery(con,"insert into ceotable values(22,'Y')")
ageInput <- reactive({
x1<-paste("insert into ceotable
values(",input$age,",","'","",input$order,"'",")",sep="")
dbSendQuery(con,x1)
})
写不进去
前面ui
submitButton("送出")
※ 编辑: psinqoo (111.249.18.48), 05/14/2015 15:53:32
7F：→ Wush978: 你可以自己写个connection pool，检查连线是否有效 05/14 16:52
8F：→ Wush978: 无效就开一个新的连，这样 05/14 16:52
9F：→ Wush978: 塞不进去你要检查一下是什麽问题，如果是连线超时，就用 05/14 16:52
10F：→ Wush978: 上面我讲的解法 05/14 16:53