R Shiny Динамическое добавление ввода текста и вывод пользовательского интерфейса на основе ввода пользователя - PullRequest
Новая
       49

R Shiny Динамическое добавление ввода текста и вывод пользовательского интерфейса на основе ввода пользователя

0 голосов
/ 08 ноября 2019

Я пытаюсь создать блестящее приложение, которое позволит пользователям добавлять текстовые поля или добавлять изображения и создавать документ из него. Я могу добавить одно текстовое поле и отобразить его содержимое, но при добавлении другого текстового поля содержимое не отображается. Я использовал ссылку в качестве отправной точки.

Вот мой пример кода, который я пытаюсь добавить в пользовательские поля ввода, нажав кнопку «Добавить». 

library(shiny)
library(shinyjqui)

ui <- shinyUI(fluidPage(

  sidebarPanel(
    actionButton("add_btn", "Add Textbox"),
    actionButton("rm_btn", "Remove Textbox"),
    textOutput("counter")
  ),
  mainPanel(
    jqui_sortable(
      div(id = 'textboxes',
            uiOutput("textbox_ui"),
            textInput("caption", "Caption", "Insert Text"),
            verbatimTextOutput("value")
      )
    )
  )
))

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

  # Track the number of input boxes to render
  counter <- reactiveValues(n = 0)

  #Track the number of input boxes previously
  prevcount <- reactiveValues(n = 0)

  observeEvent(input$add_btn, {
    counter$n <- counter$n + 1
    prevcount$n <- counter$n - 1})

  observeEvent(input$rm_btn, {
    if (counter$n > 0) {
      counter$n <- counter$n - 1 
      prevcount$n <- counter$n + 1
    }

  })

  output$value <- renderText({ input$caption })


  output$counter <- renderPrint(print(counter$n))

  textboxes <- reactive({

    n <- counter$n

    if (n > 0) {
      # If the no. of textboxes previously where more than zero, then 
      #save the text inputs in those text boxes 
      if(prevcount$n > 0){

        vals = c()
        if(prevcount$n > n){
          lesscnt <- n
          isInc <- FALSE
        }else{
          lesscnt <- prevcount$n
          isInc <- TRUE
        }
        for(i in 1:lesscnt){
          inpid = paste0("textin",i)
          vals[i] = input[[inpid]] 
        }
        if(isInc){
          vals <- c(vals, "Insert Text")
        }

        lapply(seq_len(n), function(i) {
          textInput(inputId = paste0("textin", i),
                    label = paste0("Subsection ", i), value = vals[i])
        })

      }else{
        lapply(seq_len(n), function(i) {
          textInput(inputId = paste0("textin", i),
                    label = paste0("Subsection ", i), value = "Insert text")
        }) 
      }

    }

  })

  output$textbox_ui <- renderUI({ textboxes() })

})

shinyApp(ui, server)

Любая помощь будет оценена в этом отношении. Если кто-нибудь и укажет мне, как динамически захватывать выходные значения $ при каждом добавлении нового поля, это подтолкнет меня в правильном направлении.

1 Ответ

0 голосов
/ 08 ноября 2019

Вы пробовали reactiveValuesToList функцию? Здесь у вас есть пример , который может помочь 

AllInputs <- reactive({
x <- reactiveValuesToList(input)  })

textboxes <- reactive({

n <- counter$n

if (n > 0) {
  isolate({
    lapply(seq_len(n), function(i) {
      textInput(inputId = paste0("textin", i),
                label = paste0("Textbox", i), 
                value = AllInputs()[[paste0("textin", i)]])
    })
  })
}
})
...