Question

我有一个问题。我想要的是在重定向期间显示两个弹出警报。

这是我做什么：

library(shiny)
library(plotly)

ui <- fluidPage(
  titlePanel("Iris"),
  sidebarLayout(
    sidebarPanel(
      selectInput("var",label="Choose a variable",
                  choice=list("Sepal.Length"=1, "Sepal.Width"=2, "Petal.Length"=3, "Petal.Width"=4, "Species"=5), selectize=FALSE),
      checkboxGroupInput(inputId ="independent",label = "Select independent variables", choices = names(iris))
      ),
    mainPanel(
      verbatimTextOutput("sum"),
      plotOutput("plot"),
      plotlyOutput("plotly")
    )
  )
)

server <- function(input,output) {

  output$sum <- renderPrint({  
    summary(iris[, as.numeric(input$var)])
  })

  output$plot <- renderPlot({
    plot(iris)
  })

  output$plotly <- renderPlotly({
    plot_ly(iris) %>% 
      add_trace(x=iris$Sepal.Length, y=iris$Sepal.Width, type="scatter", mode="markers")
  })

}

shinyApp(ui, server)

看到的是第二条消息覆盖了第一条消息。因此，当重定向时，我只能看到第二个。

有什么解决办法吗？

Answer 1

https://laravel.com/api/5.7/Illuminate/Contracts/View/View.html#method_with

  return redirect()->back()->with(
['success' => sprintf('Image was successfully updated.'),
'info' => sprintf('Please confirm your email.')]);

为什么在不格式化字符串的情况下使用sprintf？您不妨将其取出。

Laravel，使用弹出警报

1 个答案: