"))
})
#words_M_P,words_M_S,words_C_P, words_C_S, words_R
output$table <- renderDataTable({
table_reactive()
})
word_val_ff <- eventReactive(input$cal, {
today <- Sys.Date()
dob <- as.Date(input$dob)
surgery_date <- as.Date(input$Sob)
aa <- as.numeric(difftime(surgery_date, dob, units = "days")) / 365.25
values <- calculateValues()
clus <- values$clus
if(clus == "A") {
C_ph <- 0
} else {
if(clus %in% c("C","D")){
C_ph <- 3
}else{
C_ph <- 1
}}
if( aa >15 ){
word_val()
}else{
if(C_ph == 3){
word_val()
}else{
word_val_15()
}
}
})
output$words <- renderUI({
word_val_ff()
})
output$conditional_layout <- renderUI({
values <- calculateValues()
aa <- values$aa
clus <- values$clus
if (aa > 15 || clus %in% c("C", "D")) {
div(
style = "width: 100%; max-width: 1300px; margin: 0 auto;", # 外层容器最大1300px
card(
style = "width: 100%; max-width: 1300px; margin: 0 auto;", # card充满容器
fluidRow(
div(
style = "width: 600px; margin: 0 auto;", # 固定内容宽度600px
uiOutput("words")
)
),
fluidRow(
div(
style = "width: 600px; margin: 0 auto;", # 固定内容宽度600px
DTOutput("table")
)
)
)
)
} else {
div(
style = "width: 100%; max-width: 1300px; margin: 0 auto; margin-top: 20px;",
card(
fluidRow(
div(
style = "width: 600px; margin: 0 auto;",
uiOutput("words")
)
),
fluidRow(
column(
width = 6,
div(
style = "width: 550px;", # 表格区域固定宽度
DTOutput("table")
)
),
column(
width = 6,
imageOutput("cluster_image") # 动态显示图片
)
)
)
)
}
})
output$cluster_image <- renderImage({
list(
src = rdata_file3,
contentType = "image/png",
style = "width:100%; height:auto;"
)
}, deleteFile = FALSE)
output$words_cluster <- renderUI({
clus <- calculateValues()$clus
description <- switch(clus,
"A" = "Cluster A: Pediatric Patients with Ectopia Lentis and Minimal Other Ocular Features of Marfan Syndrome. This subtype primarily includes children under 12 years of age whose axial length (AL) is generally within the normal range for age. Some patients may exhibit mildly elongated AL but lack other characteristic features such as corneal flattening or thinning. Postoperative visual recovery in this group tends to be faster compared to Type B patients. The incidence of posterior capsular opacification (PCO) is similar to that of Type B, with approximately 30% requiring Nd:YAG laser treatment within two years after surgery.
",
"B" = "Cluster B: Pediatric Patients with Ectopia Lentis, Long Axial Length, Flat Cornea, and Thin Cornea. Also primarily involving children under 12 years, this subtype is characterized by significantly elongated AL compared to age-matched norms. Some patients may present with normal AL but exhibit other features such as a flatter and thinner cornea. Compared to Type A, visual recovery is slower in this group, while the incidence of PCO remains comparable, with about 30% of patients requiring laser capsulotomy within two years postoperatively.
",
"C" = "Cluster C: Adolescent and Adult Patients with Ectopia Lentis and Normal to Moderately Long Axial Length. This group includes patients aged 12 years and older, with axial lengths typically not exceeding 28 mm. Postoperative visual recovery in this subtype is the most rapid among all clusters, and the incidence of PCO is the lowest, with only approximately 13% of patients requiring laser treatment within two years after surgery.
",
"D" = "Cluster D: Patients with Ectopia Lentis and Markedly Elongated Axial Length. This subtype includes adults with AL greater than 28 mm and children whose AL is substantially longer than age-matched peers. These patients show the slowest postoperative visual improvement and the highest risk of PCO, with approximately 45% requiring Nd:YAG laser capsulotomy within two years postoperatively.
",
"No cluster information available.
"
)
HTML(description)
})
# PCO_sur 输出逻辑
output$PCO_sur <- -renderImage({
list(
src = rdata_file1,
contentType = "image/png",
style = "width:100%; height:auto;"
)
}, deleteFile = FALSE)
output$img1_ui <-renderImage({
list(
src = rdata_file2,
contentType = "image/png",
style = "width:100%; height:auto;"
)
}, deleteFile = FALSE)
}
shinyApp(ui = ui, server = server)
```
```{shinylive-r}
#| standalone: true
#| viewerHeight: 200
library(shiny)
library(ggplot2)
library(shinyjs)
ui <- fluidPage(
useShinyjs(),
actionButton("cal", "Estimate IOL Power"),
imageOutput("img1_ui"),
imageOutput("img2_ui"),
imageOutput("img3_ui"),
uiOutput("words")
)
server <- function(input, output, session) {
rdata_file1 <- tempfile(fileext = ".png")
correct_url1 <- "https://raw.githubusercontent.com/XinshenFD/data-save/main/sup1.png"
download.file(correct_url1, destfile = rdata_file1, mode = "wb")
rdata_file2 <- tempfile(fileext = ".png")
correct_url2 <- "https://raw.githubusercontent.com/XinshenFD/data-save/main/Logo-Department.png"
download.file(correct_url2, destfile = rdata_file2, mode = "wb")
rdata_file3 <- tempfile(fileext = ".png")
correct_url3 <- "https://raw.githubusercontent.com/XinshenFD/data-save/main/sup2.png"
download.file(correct_url3, destfile = rdata_file3, mode = "wb")
output$img1_ui <- renderImage({
list(
src = rdata_file1,
contentType = "image/png",
style = "width:100%; height:auto;"
)
}, deleteFile = FALSE)
output$img2_ui <- renderImage({
list(
src = rdata_file2,
contentType = "image/png",
style = "width:100%; height:auto;"
)
}, deleteFile = FALSE)
output$img3_ui <- renderImage({
list(
src = rdata_file3,
contentType = "image/png",
style = "width:100%; height:auto;"
)
}, deleteFile = FALSE)
observeEvent(input$cal, {
shinyjs::show("img1_ui")
output$words <- renderUI({
HTML("Calculation completed!")
})
})
}
shinyApp(ui = ui, server = server)
```