ui雏形&server struggling

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.)
中徘徊，感觉需要换一种思路重来….