我真的需要帮助(我尝试了很多不同的案例并搜索了很多论坛和教程(( 目标很简单:我有一些MySQL数据库和表。我想将闪亮输入中的值插入到该表中。我需要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","Занести оценки в журнал")
)
)
答案 0 :(得分:2)
我没有检查写入MySql
函数,只是闪亮的部分。如果有效,请告诉我。
您应该只关心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
}
))