Simplify and shorten the descriptive comment

R/get_test_for_function_calls.R

@@ -74,12 +74,10 @@ get_templates <- function()
 {
   templates <- list(
     intro = "<intro_1>\n<intro_2>\n<intro_3>\n<intro_4>",
-    intro_1 = "#\n# This test file has been generated by <test_creator>",
-    intro_2 = "# launched by user <user> on <datetime>.",
-    intro_3 = "# Your are strongly encouraged to modify the dummy functions",
-    intro_4 = "# so that real cases are tested. <hint_delete>\n#\n",
-    hint_delete = "You should then delete this comment.",
-    test_creator = "kwb.test::create_test_files()",
+    intro_1 = "#\n# This file was generated by kwb.test::create_test_files(), ",
+    intro_2 = "# launched by <user> on <datetime>.",
+    intro_3 = "# Please modify the dummy functions so that real cases are",
+    intro_4 = "# tested. Then, delete this comment.\n#\n",
     test_that_call = "test_that(\"<fun>() works\", {\n\n<test_that_body>})",
     fun_call = "<pkg_fun>(<args>)",
     fun_call_alone = "  <fun_call>\n",