Semantics

R/insert_breaks.R

@@ -130,14 +130,16 @@ insert_break <- function(level,
     if (ret_value$add_semantics) {
       # create fill
       creators <- setNames(Map(create_creators,
-                             start = c("", "#", ".", "")),
-                         c("get_title", "get_id", "get_class","get_attribute"))
-      fill <- create_fill(title = ret_value$text1,
-                  id = ret_value$id,
-                  classes = ret_value$classes,
-                  attributes = ret_value$keyvaluepairs,
-                  function_container = creators)
-
+                             start = c("", "", "", "")),
+                             c("get_title", "get_id", "get_class","get_attribute"))
+      tempstring=ret_value$id
+      fill <- create_fill(id = ret_value$id,
+                          classes = ret_value$classes,
+                          title = ret_value$text1,
+                          attributes = ret_value$keyvaluepairs,
+                    json_ld = ret_value$json_ld,
+                    function_container = creators)
+
     } else {
       fill <- ret_value$text1
     }
@@ -149,7 +151,6 @@ insert_break <- function(level,
     options(strcode = op)
     level <- as.numeric(unlist(strsplit(ret_value$level, ""))[nchar(ret_value$level)])
 
-
   } else {
     fill <- ""
     anchor_in_sep <- FALSE
@@ -158,9 +159,7 @@ insert_break <- function(level,
   ### set parameter depending on level
   start <- paste0(rep("#", level), collapse = "")
   break_char = give_breakchar(level)
-  sep = paste(rep(" ", 4 - level), collapse = "")
-
-
+  sep = paste(rep(" ", 8 - level), collapse = "")
 
 #   ____________________________________________________________________________
 
@@ -266,6 +265,7 @@ help_create_title <- function(start = "##",
   # create a text that starts with start, adds sep and then spaces up to margin
   # too long texts will be truncated
   if (fill == "") return(NULL)
+
   text <- paste0(start, sep, fill)
 
   extension <- paste0(rep(" ",
@@ -284,8 +284,12 @@ help_create_title <- function(start = "##",
 give_breakchar <- function(level) {
   switch(as.character(level),
        "1" = "_",
-       "2" = ".",
-       "3" = ". ")
+       "2" = "._",
+       "3" = ".._",
+       "4" = "..._",
+       "5" = "...._",
+       "6" = "....._",
+       "7" = "......_",)
 }
 ##  ............................................................................
 ##  help insert                                                             ----
@@ -339,8 +343,13 @@ help_insert <- function(x,
 #' @importFrom stats setNames
 #' @keywords internal
 find_title <- function(level) {
-  choices_input <- paste("level", 1:3)
-  class_choices <- paste("class", 1:10)
+  #XJ Original codes:
+  #styles_input <- paste(c("Default","JSON-LD"))
+  choices_input <- paste("level", 1:7)
+
+  class_choices <- paste(c("provone:Process","provone:InputPort","provone:OutputPort","provone:DataLink","provone:SeqCtrlLink",
+                           "provone:Workflow","provone:User","provone:ProcessExec","provone:Data","provone:Collection",
+                           "provone:Visualization","provone:Program","prov:Plan"))
   ui <- miniPage(
     miniContentPanel(
       fillCol(
@@ -375,14 +384,16 @@ find_title <- function(level) {
                            width = "320px",
                           multiple = TRUE),
                            selectizeInput("keyvaluepairs", width = "320px",
-                                          label = "key-value pairs",
+                                          label = "Manually input: property=value",
                            choices = "", multiple = TRUE,
                            options = list(create = TRUE,
                                           persist = FALSE,
-                                          createFilter = "^[a-zA-Z1-9]+\\s*=\\s*[a-zA-Z1-9]+$"))
+                                          createFilter = "^.+\\s*=\\s*.+$")),
+                           checkboxInput("json_ld", "JSON-LD",width = "80px")
                            )
         )
-        ,flex = c(0.8, 0.5, 3))
+        ,flex = c(0.8, 0.5, 3)
+      )
     )
   )
 
@@ -394,7 +405,9 @@ find_title <- function(level) {
                     id = input$pandoc_id,
                     level  = input$level,
                     classes = input$classes,
-                    keyvaluepairs = input$keyvaluepairs))
+                    keyvaluepairs = input$keyvaluepairs,
+                          json_ld = input$json_ld
+                         ))
 
     observeEvent(input$done, {
       stopApp(eval(listout))