change markdown argument names

CRI-iAtlas · Oct 9, 2020 · d7c2002 · d7c2002
1 parent e4b4d89
commit d7c2002
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/barplot_ui.R b/R/barplot_ui.R
@@ -10,7 +10,7 @@
 barplot_ui <- function(
   id,
   title = "",
-  barchart_html = htmltools::includeMarkdown(get_markdown_path("barchart1")),
+  barplot_html = htmltools::includeMarkdown(get_markdown_path("barchart1")),
   ...
   ){
 
@@ -20,7 +20,7 @@ barplot_ui <- function(
     titleBox(title),
     messageBox(
       width = 12,
-      barchart_html
+      barplot_html
     ),
     shiny::conditionalPanel(
       condition = "output.display_feature_class_selection_ui",

diff --git a/R/drilldown_scatterplot_ui.R b/R/drilldown_scatterplot_ui.R
@@ -1,7 +1,7 @@
 
 drilldown_scatterplot_ui <- function(
   id,
-  html = htmltools::includeMarkdown(
+  drilldown_html = htmltools::includeMarkdown(
     get_markdown_path("drilldown_scatterplot1")
   )
   ){
@@ -12,7 +12,7 @@ drilldown_scatterplot_ui <- function(
     shiny::fluidRow(
       messageBox(
         width = 12,
-        html
+        drilldown_html
       )
     ),
     shiny::conditionalPanel(