我真的需要帮助(我尝试了很多不同的案例并搜索了很多论坛和教程(( 目的很简单:我有一些 MySQL 数据库和表。我想将 Shiny 输入中的值插入到该表中。我需要actionButton 而不是submitButton,因为我的应用程序还有另一个重要部分可以实时更新。 另外,我尝试了远离 Shiny 的部分代码,一切正常。所以,问题出在 Shiny 的命令上,但我不知道问题出在哪里。 这是我的代码的一部分(我已经删除了几乎所有内容,只留下了一个 selectInput 字段和 actionButton):
server.R
library(shiny)
library(RMySQL)
# function to connect to MySQL database and sending query of INSERT
writingMarks <- function(course,homework,valueToInsert){
courseDB <- dbConnect(MySQL(), user="root", password="password",
host="111.111.111.1", db=course)
query <- paste("INSERT INTO `",course,"`.`homework",homework,
"` values (",rowToInsert,")",sep="")
dbSendQuery(conn=courseDB, query)
connections <- dbListConnections(MySQL())
for(i in connections) {dbDisconnect(i)}
}
shinyServer(
function(input,output,session){
# here I've put "mathematics", "1", "test" instead my input variables
output$uploadMarks <-
reactive({writingMarks("mathematics","1","test")})
}
)
ui.R
library(shiny)
shinyUI(fluidPage(
fluidRow(
column(2,selectInput("task1", label=NULL,
choices = c(0:5),
selected = 0))
),
actionButton("uploadMarks","Занести оценки в журнал")
)
)
最佳答案
我还没有检查对MySql
函数的写入,只是检查了 Shiny 的部分。让我知道它是否有效。
您应该只关心 shinyServer
中的修改。
library(shiny)
ui.R <- shinyUI(
fluidPage(
fluidRow(
column(2,selectInput("task1", label=NULL,
choices = c(0:5),
selected = 0))
),
actionButton("uploadMarks","Занести оценки в журнал")
)
)
library(shiny)
library(RMySQL)
Sys.setlocale(category = "LC_ALL", locale = "Russian")
server.R<-shinyServer( ##here
function(input,output,session){
observe({
# Take a dependency on input$uploadMarks
if(input$uploadMarks==0) return()
#Use isolate() to avoid dependency on input$task1
isolate({
current_selection<-input$task1
writingMarks("mathematics",current_selection,"test")
})#iso
}
)
}
)
runApp(list(
ui={ ui.R},
server = {
# function to connect to MySQL database and sending query of INSERT
writingMarks <- function(course,homework,valueToInsert){
courseDB <- dbConnect(MySQL(), user="root", password="password",
host="111.111.111.1", db=course)
query <- paste("INSERT INTO `",course,"`.`homework",homework,
"` values (",rowToInsert,")",sep="")
dbSendQuery(conn=courseDB, query)
connections <- dbListConnections(MySQL())
for(i in connections) {dbDisconnect(i)}
}
server.R
}
))
关于mysql - 将数据从 Shiny 应用上传到 MySQL 数据库,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/28543650/