Как получить правильный InputID при использовании InsertUI в Shiny - PullRequest
Новая
       20

Как получить правильный InputID при использовании InsertUI в Shiny

0 голосов
/ 24 января 2019

У меня есть вопрос о InsertUI и соответствующем InputID элементов.

В приведенном ниже примере inputID для selectizeInput "Number_Product1_1" показывает выходные данные для 1. деления в boxOutput "InputID".

Если этот InputID используется в качестве ввода для boxOutput "Total", вывод не отображается.

Если добавлено больше делений, количество Product1 (в примере ниже '50') в 1. подразделении является выходом в boxOutput "Total" следующих подразделений. Но почему этот вывод не показан для 1. деления?

Я в замешательстве. Может кто-нибудь объяснить мне, почему происходит этот сдвиг?

Спасибо за ваш вклад! 

library(shiny)
library(shinydashboard)

# Define UI
ui <- fluidPage(
titlePanel("Identify Total amount/Divison"),
sidebarLayout(
sidebarPanel(
  width = 12,
  # Buttons to add/remove a question
  actionButton("add", "Add Divison"),
  actionButton("remove", "Remove Divison"),
  div(id = "questions",
      style = "border: 1px solid silver;")
),
mainPanel(
)))



# Define server logic 
server <- function(input, output) {
values <- reactiveValues(num_questions = 0) 
# Add a division
observeEvent(input$add, ignoreNULL = FALSE, {

values$num_questions <- values$num_questions + 1
num <- values$num_questions
ui = tags$div(
  insertUI(
    selector = "#questions", where = "beforeEnd",
    splitLayout(
      cellWidths = c("20%","20%", "20%", "20%", "20%"), 
      cellArgs = list(style = "padding: 3px"),
      id = paste0("question", num),
      textAreaInput(inputId = paste0("Division_", num),
                    label = paste0(num, ". Division:"),
                    placeholder = "Placeholder"),

      selectizeInput(inputId =paste0("Number_Product1_", num),
                         label = paste0("Product1"), isolate(seq(from = 50, to = 100000, by = 50)), multiple=FALSE),
      selectizeInput(inputId =paste0("Number_Product2_", num),
                     label = paste0("Product2"), isolate(seq(from = 0, to = 100000, by = 50)), multiple=FALSE),
      box(
        title = "Total", width = 12, background = "black",


        input$Number_Product1_1),   #### Input from selectizeInput "Product 1" 



       box(
        title = "inputID", width = 12, background = "black",

        paste0("Number_Product1_", num))  #### inputID's of the selectizeinput "Product 1"
      )))

})

# Remove a division
observeEvent(input$remove, {
num <- values$num_questions
# Don't let the user remove the very first Row
if (num == 1) {
  return()
}
removeUI(selector = paste0("#question", num))
values$num_questions <- values$num_questions - 1
})

}


# Run the application 
shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 25 января 2019

Возможно, мне придётся найти лучшее объяснение, а пока эта ошибка исправлена.

Насколько я понимаю, в insertUI вы пытаетесь получить доступ к идентификатору, значение которого будет создано только после insertUI, поэтому я попытался отобразить его отдельно и присвоил его вывод значению box. 

library(shiny)
library(shinydashboard)

# Define UI
ui <- fluidPage(
  titlePanel("Identify Total amount/Divison"),
  sidebarLayout(
    sidebarPanel(
      width = 12,
      # Buttons to add/remove a question
      actionButton("add", "Add Divison"),
      actionButton("remove", "Remove Divison"),
      div(id = "questions",
          style = "border: 1px solid silver;")
    ),
    mainPanel(
    )))



# Define server logic 
server <- function(input, output) {
  values <- reactiveValues(num_questions = 0) 
  # Add a division
  observeEvent(input$add, ignoreNULL = FALSE, ignoreInit = TRUE,{

    values$num_questions <- values$num_questions + 1
    num <- values$num_questions
    #ui = tags$div(
   # observe({


      insertUI( immediate = TRUE,
        selector = "#questions", where = "beforeEnd",

        splitLayout(
          cellWidths = c("20%","20%", "20%", "20%", "20%"), 
          cellArgs = list(style = "padding: 3px"),
          id = paste0("question", num),
          textAreaInput(inputId = paste0("Division_", num),
                        label = paste0(num, ". Division:"),
                        placeholder = "Placeholder"),

          selectizeInput(inputId =paste0("Number_Product1_", num),
                         label = paste0("Product1"), isolate(seq(from = 50, to = 100000, by = 50)), multiple=FALSE,
                         selected = 50),
          selectizeInput(inputId =paste0("Number_Product2_", num),
                         label = paste0("Product2"), isolate(seq(from = 0, to = 100000, by = 50)), multiple=FALSE),



          box(
            title = "Total", width = 12, background = "black",

            print( input$Number_Product1_1),

            textOutput("total")

          ),   #### Input from selectizeInput "Product 1" 



          box(
            title = "inputID", width = 12, background = "black",

            paste0("Number_Product1_", num))  #### inputID's of the selectizeinput "Product 1"
        ))
      #)
   # })
  })

  #observe({

   # require(input$Number_Product1_1)
    output$total <- renderText({
      input[["Number_Product1_1"]] 
    })
 # })

  # Remove a division
  observeEvent(input$remove, {
    num <- values$num_questions
    # Don't let the user remove the very first Row
    if (num == 1) {
      return()
    }
    removeUI(selector = paste0("#question", num))
    values$num_questions <- values$num_questions - 1
  })

}


# Run the application 
shinyApp(ui = ui, server = server)

Изображение:

enter image description here

...