R/build_log.R

In bupaverse/logbuildR: Helps the user to correctly create process data.

#' Title
#'

#' @importFrom purrr map
#' @importFrom stringr str_detect
#' @export
build_log <- function() {

    ui <- miniPage(
        gadgetTitleBar("Select data",right = miniTitleBarButton("done","Select data", TRUE)),
        miniContentPanel(
            uiOutput("datasets"),
            verbatimTextOutput("data")

        )
    )
    map(ls(envir = .GlobalEnv), function(x){class(get(x))}) %>%
        map(str_detect, "data.frame") %>%
        map(any) %>%
        unlist-> is_data_frame

    ls(envir = .GlobalEnv)[is_data_frame] -> datasets

    server <- function(input, output, session){

        output$datasets <- renderUI({
            selectizeInput("dataset", label = "Select data:",
                           choices = datasets,
                           multiple = FALSE)
        })

         output$data <- renderPrint({
             if(is.null(input$dataset)) {
                 tibble()
             } else {
                 glimpse(get(input$dataset))
             }
         })

        observeEvent(input$done, {
            .construction_object <<- list(data = get(input$dataset), data_name = input$dataset)
            stopApp()
            rstudioapi::sendToConsole(glue::glue("select_ids(.construction_object)"))
        })
    }
    suppressWarnings(suppressMessages(runGadget(ui, server, viewer = dialogViewer("Event log construction",  height = 600, width = 850))))

}