Remove _ui from modules names fixes issue #651

Author: margotbrd

R/add_modules.R

@@ -187,10 +187,10 @@ module_template <- function(
     write_there("    ")
 
     write_there("## To be copied in the UI")
-    write_there(sprintf('# mod_%s_ui("%s_ui_1")', name, name))
+    write_there(sprintf('# mod_%s_ui("%s_1")', name, name))
     write_there("    ")
     write_there("## To be copied in the server")
-    write_there(sprintf('# callModule(mod_%s_server, "%s_ui_1")', name, name))
+    write_there(sprintf('# callModule(mod_%s_server, "%s_1")', name, name))
 
 
   } else {
@@ -212,10 +212,10 @@ module_template <- function(
     write_there("    ")
 
     write_there("## To be copied in the UI")
-    write_there(sprintf('# mod_%s_ui("%s_ui_1")', name, name))
+    write_there(sprintf('# mod_%s_ui("%s_1")', name, name))
     write_there("    ")
     write_there("## To be copied in the server")
-    write_there(sprintf('# mod_%s_server("%s_ui_1")', name, name))
+    write_there(sprintf('# mod_%s_server("%s_1")', name, name))
 
   }
 }

inst/manualtests/script.R

@@ -66,7 +66,7 @@ ui <- readLines("R/app_ui.R")
 ui <- append(
   ui,
   c(
-    ',mod_my_first_module_ui("my_first_module_ui_1")'
+    ',mod_my_first_module_ui("my_first_module_1")'
   ), 
   grep(
     "h1", 
@@ -79,7 +79,7 @@ server <- readLines("R/app_server.R")
 server <- append(
   server,
   c(
-    'callModule(mod_my_first_module_server, "my_first_module_ui_1")'
+    'callModule(mod_my_first_module_server, "my_first_module_1")'
   ), 
   grep(
     "first level callModules",