R/uiElements.R

In ElianHugh/templater: Use and Create Rmarkdown Templates

templater_selection <- function() {
    shiny::div(
        DT::DTOutput("table"),
    )
}

templater_input <- function() {
     shiny::div(
         style = "width: 80%",
         shiny::p(shiny::strong("Name")),
         shiny::tags$input(
             placeholder = "untitled",
             class = "form-control",
             type = "text",
             pattern = "[(a-zA-Z0-9_ )]*",
             title = "Must be a valid file name.",
             id = "name_input",
         )
     )
}

templater_directory <- function(wd) {
shiny::div(
    shiny::p(shiny::strong("Directory")),
        shiny::fillRow(
            flex = c(5, 4, 3),
            shiny::textInput(
                "dir_input",
                label = NULL,
                value = wd
            ),
            shiny::actionButton(
                inputId = "dir_button",
                label = "Browse",
                class = "btn btn-secondary"
            ),
            shiny::checkboxInput(
                inputId = "check_input",
                label = "New Directory"
            )
        )

)
}

templater_table <- function(data) {
    name <- NULL
    Package <- NULL

    data <- data %>%
        dplyr::filter(name != "FAULTY YAML" & !is.na(Package))

    DT::datatable(data,
        rownames = FALSE,
        selection = "single",
        options = list(
            headerCallback = DT::JS(
                "function(thead, data, start, end, display) {",
                "  $(thead).remove();",
                "}"
            ),
            rowCallback = DT::JS(
            "function(row, data) {",
            "var full_text = data[1]",
            "$('td', row).attr('title', full_text);",
            "}"),
            scrollY = "30vh",
            scrollCollapse = TRUE,
            dom = "ft",
            paging = FALSE,
            language = list(
                search = "",
                searchPlaceholder = "Search",
                zeroRecords = "No matching templates found"
            ),
            searchDelay = 0,
            columnDefs = list(
                list(
                    visible = FALSE,
                    targets = c(1, 2, 3, 4, 5)
                )
            )
        )
    )
}

templater_creator <- function() {
    shiny::div(
        class = "templateDetails",
        shiny::p(shiny::strong("Template Name")),
        shiny::tags$input(
                id = "template_name_input",
                class = "form-control",
                type = "text",
                title = "Must be a valid file name.",
                placeholder = "untitled",
                pattern = "[(a-zA-Z0-9_ )]*",
                style = "width: 80%;"
        ),
        shiny::p(shiny::strong("Template Description")),
        shiny::tags$textarea(
            id = "template_desc_input",
            class = "form-control",
            placeholder = "My custom template.",
            style = "width: 90%; resize: vertical;",
            rows = "5"
        ),
        shiny::p(shiny::strong("Body")),
        shiny::tags$textarea(
            id = "rmd_input",
            class = "form-control",
            placeholder = "Lorem ipsum",
            style = "width: 90%; resize: vertical;",
            rows = "5"
        )
    )
}