ui
library(shiny)
library(shinythemes)
library(DT)
ui <- navbarPage(title = "Survival Analysis",
### select ###
tabPanel("Survival Analysis",
fluidPage(theme = shinytheme("cerulean"),
h3(tags$b("@biotrainee"))),
sidebarLayout(
sidebarPanel(
textInput("inputgene",h4(tags$b("Input Gene(s)")),placeholder = c("A1BG,A2BP1,ACTB,GAPDH")),
helpText("Please input valid GENE SYMBOL(s) or IDENTIFIER(s), seped by COMMA."),
br(),
radioButtons("cdsvsoth",h4(tags$b("Select Gene Type")),c("CDS"="cds","Other"="other")),
br(),
radioButtons("mulvsuni",h4(tags$b("Select a Method")),c("Multi-gene Analysis"="mul","Uni-gene Analysis"="uni")),
helpText("Multi: overall survival analysis; Uni: analysis gene by gene."),
br(),
selectInput("cancertype",h4(tags$b("Select Cancer Type")),
c("Acute Myeloid Leukemia(LAML)"= "LAML","Adrenocortical Cancer(ACC)"="ACC",
"Bile Duct Cancer(CHOL)"="CHOL","Bladder Cancer(BLCA)"="BLCA",
"Breast Cancer(BRCA)"="BRCA","Cervical Cancer(CESC)"="CESC",
"Colon Cancer(COAD)"="COAD","Endometrioid Cancer(UCEC)"="UCEC",
"Esophageal Cancer(ESCA)"="ESCA","Glioblastoma(GBM)"="GBM",
"Head and Neck Cancer(HNSC)"="HNSC","Kidney Chromophobe(KICH)"="KICH",
"Kidney Clear Cell Carcinoma(KIRC)"="KIRC","Kidney Papillary Cell Carcinoma(KIRP)"="KIRP",
"Large B-cell Lymphoma(DLBC)"="DLBC","Liver Cancer(LIHC)"="LIHC",
"Lower Grade Glioma(LGG)"="LGG","Lung Adenocarcinoma(LUAD)"="LUAD",
"Lung Squamous Cell Carcinoma(LUSC)"="LUSC","Melanoma(SKCM)"="SKCM",
"Mesothelioma(MESO)"="MESO","Ocular melanomas(UVM)"="UVM",
"Ovarian Cancer(OV)"="OV","Pancreatic Cancer(PAAD)"="PAAD",
"Pheochromocytoma & Paraganglioma(PCPG)"="PCPG","Prostate Cancer(PRAD)"="PRAD",
"Rectal Cancer(READ)"="READ","Sarcoma(SARC)"="SARC",
"Stomach Cancer(STAD)"="STAD","Testicular Cancer(TGCT)"="TGCT",
"Thymoma(THYM)"="THYM","Thyroid Cancer(THCA)"="THCA",
"Uterine Carcinosarcoma(UCS)"="UCS"),selected = "BRCA"),
helpText("Data Scource: GDC Hub"),
br(),
selectInput("groupby",h4(tags$b("Bifurcate At")),c("Median","Mean"),"Median"),
br(),
actionButton("plot","PLOT!",icon = icon("hand-spock"))
),
###mainpanel
mainPanel(
renderPlot("kmplot")
)
))
)
server
server的代码已经被我搞乱了…..打通一环又破坏了另一环…
主要是卡在load Rdata这个过程存在两个reactivevalue, 在“只有一种选项可成功”——
和
Error in .getReactiveEnvironment()$currentContext: Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)
中徘徊,感觉需要换一种思路重来….