ui

image.png

  1. library(shiny)
  2. library(shinythemes)
  3. library(DT)
  4. ui <- navbarPage(title = "Survival Analysis",
  5. ### select ###
  6. tabPanel("Survival Analysis",
  7. fluidPage(theme = shinytheme("cerulean"),
  8. h3(tags$b("@biotrainee"))),
  9. sidebarLayout(
  10. sidebarPanel(
  11. textInput("inputgene",h4(tags$b("Input Gene(s)")),placeholder = c("A1BG,A2BP1,ACTB,GAPDH")),
  12. helpText("Please input valid GENE SYMBOL(s) or IDENTIFIER(s), seped by COMMA."),
  13. br(),
  14. radioButtons("cdsvsoth",h4(tags$b("Select Gene Type")),c("CDS"="cds","Other"="other")),
  15. br(),
  16. radioButtons("mulvsuni",h4(tags$b("Select a Method")),c("Multi-gene Analysis"="mul","Uni-gene Analysis"="uni")),
  17. helpText("Multi: overall survival analysis; Uni: analysis gene by gene."),
  18. br(),
  19. selectInput("cancertype",h4(tags$b("Select Cancer Type")),
  20. c("Acute Myeloid Leukemia(LAML)"= "LAML","Adrenocortical Cancer(ACC)"="ACC",
  21. "Bile Duct Cancer(CHOL)"="CHOL","Bladder Cancer(BLCA)"="BLCA",
  22. "Breast Cancer(BRCA)"="BRCA","Cervical Cancer(CESC)"="CESC",
  23. "Colon Cancer(COAD)"="COAD","Endometrioid Cancer(UCEC)"="UCEC",
  24. "Esophageal Cancer(ESCA)"="ESCA","Glioblastoma(GBM)"="GBM",
  25. "Head and Neck Cancer(HNSC)"="HNSC","Kidney Chromophobe(KICH)"="KICH",
  26. "Kidney Clear Cell Carcinoma(KIRC)"="KIRC","Kidney Papillary Cell Carcinoma(KIRP)"="KIRP",
  27. "Large B-cell Lymphoma(DLBC)"="DLBC","Liver Cancer(LIHC)"="LIHC",
  28. "Lower Grade Glioma(LGG)"="LGG","Lung Adenocarcinoma(LUAD)"="LUAD",
  29. "Lung Squamous Cell Carcinoma(LUSC)"="LUSC","Melanoma(SKCM)"="SKCM",
  30. "Mesothelioma(MESO)"="MESO","Ocular melanomas(UVM)"="UVM",
  31. "Ovarian Cancer(OV)"="OV","Pancreatic Cancer(PAAD)"="PAAD",
  32. "Pheochromocytoma & Paraganglioma(PCPG)"="PCPG","Prostate Cancer(PRAD)"="PRAD",
  33. "Rectal Cancer(READ)"="READ","Sarcoma(SARC)"="SARC",
  34. "Stomach Cancer(STAD)"="STAD","Testicular Cancer(TGCT)"="TGCT",
  35. "Thymoma(THYM)"="THYM","Thyroid Cancer(THCA)"="THCA",
  36. "Uterine Carcinosarcoma(UCS)"="UCS"),selected = "BRCA"),
  37. helpText("Data Scource: GDC Hub"),
  38. br(),
  39. selectInput("groupby",h4(tags$b("Bifurcate At")),c("Median","Mean"),"Median"),
  40. br(),
  41. actionButton("plot","PLOT!",icon = icon("hand-spock"))
  42. ),
  43. ###mainpanel
  44. mainPanel(
  45. renderPlot("kmplot")
  46. )
  47. ))
  48. )

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