我已经从闪亮的UI中为我的表计算了最小,最大,Q1,Q3值。但是无法从server.R发送循环变量。发送Tabe作为Shiny的输出不会在Shiny UI中呈现
# ui.R
library(shiny)
library(RODBC)
library(DBI)
dbconnect <- odbcConnect("orecloud", uid="XXX", pwd="XX", believeNRows=FALSE)
df <- data.frame()
df <- sqlQuery(dbconnect,"SELECT distinct cpan FROM CYTOKINE ")
shinyUI(fluidPage(
headerPanel("ORE Cytokine Summary"),
sidebarLayout(
sidebarPanel(
helpText("Please select Patient Details.."),
selectInput("CPAN",
label = "Choose patient",
choices = df,
selected = NULL),
submitButton(text = "Submit", icon = NULL)),
mainPanel(
dataTableOutput("tableoutput")
)
)
))
在这里,在Server.R文件,我需要发送输出变量UI.R到renderDataTable
server.R
library(RODBC)
library(RODBC)
library(lattice)
shinyServer(
function(input, output) {
dbconnect <- odbcConnect("orecloud", uid="XXXX", pwd="XXXX", believeNRows=FALSE)
df2 = reactive({
# Created DB Connection to get details
input_var <- input$CPAN
my_query <- paste("select CPAN,SCTP,MARKER,RESULT from CYTOKINE where CPAN= ", input_var)
sqlQuery(dbconnect,my_query)
cleandata <- na.omit(data)
colnames(cleandata)
Markers <- unique(cleandata[,"MARKER"])
nMarkers <- length(Markers)
nMarkers
Patients <- unique(cleandata[,"CPAN"])
nPatients <- length(Patients)
nPatients
output <- data.frame("Marker","Patient", "Min","Q1","Median","Mean","Q3","Max",stringsAsFactors=FALSE,check.names=FALSE)
output
for (i in 1:nMarkers) {
Mrk <- Markers[i]
for (j in 1:nPatients){
Pnt <- Patients[j]
Mrkdata <- cleandata[which(cleandata[,'MARKER']== Mrk),]
Ptntdata <- Mrkdata[which(Mrkdata[,'CPAN']==Pnt), ]
output[{i-1}*nPatients+j,1] <- Mrk
output[{i-1}*nPatients+j,2] <- Pnt
for (k in 1:6){
output[{i-1}*nPatients+j,k+2] <- summary(Ptntdata[,'RESULT'])[k]
#histogram(~Mrkdata [,'RESULT'])
}
#output[j,9]<- quantile(Mrkdata[,'RESULT'],c(.25,.75))[1]
#output[j,10]<- quantile(Mrkdata[,'RESULT'],c(.25,.75))[2]
}
}
})
output$tableoutput <- renderDataTable({df2()})
})
'df2'不返回任何内容。你正在打印输出数据帧吗? –
嗨马特,是的,我想打印输出数据帧。当我在r控制台执行此操作时,我可以打印输出。当我将其作为脚本执行时,这同样不起作用。 –