Fix in formula call

R/demodata.R

@@ -154,7 +154,7 @@ populate_concept <- function(ont, modi, scheme, project, host = "", admin = "",
   if(! modi %>% is.null)
   {
     modi %>%
-      dplyr::mutate_all(~stringr::str_replace_all("'", "''")) ->
+      dplyr::mutate_all(~stringr::str_replace_all(., "'", "''")) ->
     modi
   }
 

R/metadata.R

@@ -159,7 +159,7 @@ populate_ont <- function(ont, modi = NULL, scheme, include_code = T, def_facttab
   if(! modi %>% is.null)
   {
     modi %>%
-      dplyr::mutate_all(~stringr::str_replace_all("'", "''")) ->
+      dplyr::mutate_all(~stringr::str_replace_all(., "'", "''")) ->
     modi
   }