Как создать всплывающее окно для ввода пользователем информации в R блестящий?

Question

Вот пример. Я хочу, чтобы пользователи могли запускать демонстрацию столько раз, сколько они хотят, с помощью кнопки DEMO. Однако, когда они нажимают Browse для загрузки локальных данных (а не кнопку reset, как я продемонстрировал в примере), я выскакиваю окно, позволяющее пользователям вводить свое имя и состояние в двух полях ввода. В приведенном ниже примере, щелкнув RESET, запустится одно всплывающее окно (это может быть неправильным способом).

library(shiny)
library(shinyWidgets)
if (interactive()) {
  # Display an important message that can be dismissed only by clicking the
  # dismiss button.
  shinyApp(
    ui <- fluidPage(
      tabsetPanel(
        ##tabPanel-Input
        tabPanel("Input", fluid = TRUE,

                 # tab title ----
                 titlePanel("Upload data"),

                 # sidebar layout with input and output tables ----
                 sidebarLayout(

                   # sidebar panel for inputs ----
                   sidebarPanel(
                     #show ct demo
                     actionBttn("runexample", "DEMO", style="simple", size="sm", color = "primary"),

                     # input1: Select a file ----
                     fileInput("file1", "Count matrix File (.xlsx)",
                               multiple = TRUE,
                               accept = c("text/csv",
                                          "text/comma-separated-values,text/plain",
                                          ".csv")),
                     #action run
                     actionBttn("runbutton", "GO", style="simple", size="sm", color = "primary"),

                     actionBttn("reset", "RESET", style="simple", size="sm", color = "warning"),
                     verbatimTextOutput(outputId = "reset"),
                   ),
                   # Main panel for displaying outputs ----
                   mainPanel(
                     # Output: Data file ----
                     span(textOutput("nrows"),style="color:blue"),
                     span(textOutput("ncols"),style="color:blue"),
                     tableOutput("matrix"),
                   )
                 )
        )
      )

    ),
    server = function(input, output, session) {
      ###display demo count matrix
      observeEvent(input$runexample, {
        #ngenes
        output$nrows <- renderText({paste("Number of genes: ", dim(mtcars)[1], " [First 10 rows displayed]")})
        #nsamples
        output$ncols<- renderText({paste("Number of genes: ", (dim(mtcars)[2]), " [First 10 rows displayed]")})
        #display 10rows count matrix
        output$matrix <- renderTable({
          mtcars
        })
      }
      )
      observeEvent(input$reset, {
        inputSweetAlert(
          session = session, inputId = "mytext", input = "text",
          title = "This is a free program, please leave your email:"
        )
      })
      output$text <- renderPrint(input$mytext)
    }
  )
}

Answer 1

Вот пример использования модального диалогового параметра, предоставляемого shiny. Я урезал ваш пример до битов, которые имели значение:

if (interactive()) {
  shinyApp(
    ui <- fluidPage(
      actionBttn("reset", "RESET", style="simple", size="sm", color = "warning"),
      verbatimTextOutput(outputId = "text")
    ),
    server = function(input, output, session) {
      l <- reactiveValues()
      observeEvent(input$reset, {
        # display a modal dialog with a header, textinput and action buttons
        showModal(modalDialog(
          tags$h2('Please enter your personal information'),
          textInput('name', 'Name'),
          textInput('state', 'State'),
          footer=tagList(
            actionButton('submit', 'Submit'),
            modalButton('cancel')
          )
        ))
      })

      # only store the information if the user clicks submit
      observeEvent(input$submit, {
        removeModal()
        l$name <- input$name
        l$state <- input$state
      })

      # display whatever is listed in l
      output$text <- renderPrint({
        if (is.null(l$name)) return(NULL)
        paste('Name:', l$name, 'and state:', l$state)
      })
    }
  )
}