diff --git a/inst/shinyapp/modules/modules-survival-analysis.R b/inst/shinyapp/modules/modules-survival-analysis.R index 833cecb6..9777e65f 100644 --- a/inst/shinyapp/modules/modules-survival-analysis.R +++ b/inst/shinyapp/modules/modules-survival-analysis.R @@ -20,12 +20,12 @@ ui.modules_sur_plot <- function(id) { placement = "right", options = list(container = "body") ), shinyjs::hidden( - shinyWidgets::textInputAddon( + shinyWidgets::textInputIcon( inputId = ns("item_input"), label = "Item:", value = NULL, placeholder = "", - addon = icon("dna"), + icon = icon("dna"), width = "100%" ) ), diff --git a/inst/shinyapp/server/home.R b/inst/shinyapp/server/home.R index cd5ca660..c703b541 100644 --- a/inst/shinyapp/server/home.R +++ b/inst/shinyapp/server/home.R @@ -10,8 +10,8 @@ output$Xenasummary1 <- plotly::renderPlotly({ ggplot2::theme(panel.grid = ggplot2::element_blank()) + # 去除网格线 ggplot2::theme(panel.border = ggplot2::element_blank()) + # 去除外层边框 ggplot2::theme(axis.line = ggplot2::element_line(colour = "black")) + # 沿坐标轴显示直线 - ggplot2::guides(fill = FALSE) + - ggplot2::guides(color = FALSE) + + ggplot2::guides(fill = "none") + + ggplot2::guides(color = "none") + ggplot2::scale_fill_manual(values = mycolor) plotly::ggplotly(p) %>% plotly::layout(showlegend = FALSE) })