Skip to content

Intro from specific elements shown at top left corner while others are correct. #61

Description

@jcl025

As title says, when using rintrojs on my app, I plan to have multiple guides on each tab that are activated with different buttons, but to do so I have to use the dataframe approach in the steps variable. When doing an unique guide with "introbox" everything is refferenced correctly, but when it comes to multiple steps It seems like things like selectInput or sliderInputs are not found, and instead of pinting at them, It pints at the left upper part of the screen:
image
image

As u can see, action buttons are correctly found, so I might be something wrong with other intup elements.

Since is a big app with multiple tabs It's hard to give the full piece, but I think that this fragment could be enough to find the issue:

observeEvent(input$info_mod_btn, {
    if (input$tabs_prep == "MODIFICAR VARIABLES") {
      introjs(session, options = list(
        steps = data.frame(element = c("#mod_var_select", "#mod_var_type", "#mod_var_btn","#del_var_select", "#del_var_btn" ),
                           intro = c("Aquí se seleccionan las variables que se desea modificar su tipo",
                                     "Aquí se selecciona el nuevo tipo de las variables",
                                     "Una vez todo está definido, click para llevar a cabo la modificación",
                                     "Variable a eliminar",
                                     "click para eliminar"))
      ))
    } 
  })
output$prep_mod_var <- renderUI({
    fluidRow(
             sidebarLayout(
               sidebarPanel(
                 fluidRow(
                   column(
                     width = 10,
                     helpText(
                       p("MODIFICAR", style = "font-size: 18px; font-weight: bold;")
                     ) %>%
                       bsTooltip(
                         "En caso de que una variable haya sido identificada por un tipo incorrecto al cargarlas de su archivo o se considere que otro tipo le podría corresponder mejor para su entrenamiento, es posible modificarlas a 'numeric', 'character' o 'factor'",
                         html = TRUE,
                         "left",
                         bgcolor = "#3c8dbc",
                         trigger = "manual"
                       )
                   ),
                   column(
                     width = 2,
                     actionButton(
                       "info_mod_btn",
                       "",
                       class = "btn-sm",
                       icon = icon("info")
                     )
                   )
                 ),
                 
                   selectInput(
                     "mod_var_select",
                     label = "VARIABLES:",
                     choices = c(names(data())),
                     multiple = TRUE,
                     selected = NULL,
                   ),
                 
                 
                 
                   selectInput(
                     "mod_var_type",
                     label = "TIPO:",
                     choices = c('numeric', 'character', 'factor'),
                     multiple = FALSE,
                     selected = NULL, 
                   ),
                 
                 
                 
                   actionButton("mod_var_btn", "EJECUTAR"),
                 
                 
                 tags$hr(),
                 
                 fluidRow(
                   column(width = 10, helpText(
                     p("ELIMINAR", style = "font-size: 18px; font-weight: bold;")
                   ),
                   column(
                     width = 2,
                     actionButton(
                       "info_elim_btn",
                       "",
                       class = "btn-sm",
                       icon = icon("info")
                     )
                   )),
                   
                   
                     selectInput(
                       "del_var_select",
                       label = "VARIABLES:",
                       choices = c(names(data())),
                       multiple = TRUE,
                       selected = NULL
                     ),
                   
                   
                   
                     actionButton("del_var_btn", "EJECUTAR"),
                  
                   
                 )
                 
               ),
               
               mainPanel(
                 tabsetPanel(tabPanel(
                   "Modified Data", verbatimTextOutput("data_mod_summary")
                 ),),
                 dataTableOutput("resumen_tabla")
               )
               
             ))
  })

Metadata

Metadata

Assignees

No one assigned

    Labels

    No labels
    No labels

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions