inst/dev/sample-steps-modules.R

In jpmarindiaz/shinySteps: Steps layout

library(shinysteps)
library(shinyjs)
library(tidyverse)
library(dsAppModules)

styles <- "#sidebar{background-color: #f9f9f9}"


jsCode <- '


shinyjs.togglePages = function(params){

var selector = ".clickable";
$(selector).click(function(e) {
// console.log(e)
var step = e.currentTarget.id;
step = step.replace("sidebar_", "");
step = step.replace("_title", "");
currentStep = step.replace("_contents", "");
toggleSteps(currentStep, shinyStepIds);
});

}
'

jsCode <- ''


ui <- stepsPage(skin = "magenta",styles = styles,
          stepsHeader(show = TRUE, height = 50,
                      #useShinyjs(),
                      #extendShinyjs(text = jsCode),
                      verbatimTextOutput("debug"),

                      br()
          ),
          stepsBody(selected = "step1",
                    stepPanel(id="step1",
                              sidebarStep(title = "Cargar Datos",
                                          #p("sidebar step1"),
                                          tableInputUI("dataIn", choices = list("Copiar & Pegar"="pasted",
                                                                                "Cargar"="fileUpload",
                                                                                "Muestra"="sampleData"),
                                                       selected = "sampleData"),
                                          verbatimTextOutput("debugData"),
                                          br()
                              ),
                              mainStep(
                                uiOutput("dataMain")
                              )
                    ),
                    stepPanel(id="step2",
                              sidebarStep(title = "Visualizar",
                                          verbatimTextOutput("debugViz"),
                                          uiOutput("vizSide")
                              ),
                              mainStep(
                                uiOutput("vizMain")
                              )
                    )
          )
)



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

  currentStep <- reactive({
    paste(c(input$shinysteps_current,names(data())),collapse = "-")
  })

  inputData <- callModule(tableInput, "dataIn",
                          sampleFile =
                            list(
                              "File1"="data/sample1.csv",
                              "Ocad Caribe" = "data/ocad-caribe.csv",
                              "Archivo2"="data/sample2.csv"))

  data <- callModule(tableEdit, "tableEditable", inputData = inputData,
                     addColSelect = TRUE,
                     selectColsLabel = "Seleccione y organice columnas",
                     addRowFilters = FALSE,
                     addCtypes = FALSE)

  output$debug <- renderPrint({
    #str(data())
    #input$shinysteps_current
    #currentStep()
    input$step
  })

  output$dataMain <- renderUI({
    if(is.null(inputData())){
      return(p("Select data on the left"))
    }
    tagList(
      tableEditUI("tableEditable"),
      actionButton("btn_visualize", "Visualizar")
    )
  })

  output$debugData <- renderPrint({
    str(inputData())
  })

  output$debugViz <- renderPrint({
    str(data())
  })

  output$vizSide <- renderUI({
    data <- data()
    if(is.null(data())){
      return(p("Cargando"))
    }
    tagList(
      p(names(data))
    )
  })

  output$vizMain <- renderUI({
    data <- data()
    tagList(
      renderPrint(str(data))
    )
  })

  # observeEvent(input$btn_visualize, {
  #   nextStep <- "step2"
  #   current <- input$shinysteps_current
  #   steps <- input$shinysteps_stepIds
  #   session$sendCustomMessage("nextStep", nextStep)
  # })

  # observe({
  #   js$togglePages()
  # })

}

shinyApp(ui,server)