解决一些运行后的警告

openbiox · Nov 27, 2021 · 3b62f30 · 3b62f30
1 parent 7b0a482
commit 3b62f30
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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)
 })