我真的需要帮助(我尝试了很多不同的案例,并搜索了很多论坛和教程((目的很简单:我有一些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","Занести оценки в журнал")
)
)
我没有检查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
}
))
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句