How to do Bookmark at Shiny Dashboard?[solved]

shinydashboard
bookmark

#1

I am able to use Bookmark at Shiny ,But does not work at Shiny Dashboard .

bookmarkButton() give me a new url. But i enter it ,it dose not get me the new result.

#############################################
## app.R ##
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(
      box(plotOutput("plot1", height = 250)),
      
      box(
        title = "Controls",
        sliderInput("slider", "Number of observations:", 1, 100, 50),
        bookmarkButton()
      )
    )
  )
)

server <- function(input, output,session) {
  set.seed(122)
  histdata <- rnorm(500)
  
  output$plot1 <- renderPlot({
    data <- histdata[seq_len(input$slider)]
    hist(data)
  })
}
enableBookmarking(store = "url")
shinyApp(ui, server)

#2

Problem solved. by marking ui as a function

ui <- function(request) { 
  dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(
    # Boxes need to be put in a row (or column)
    fluidRow(

      box(plotOutput("plot1", height = 250)),

      box(
        title = "Controls",
        sliderInput("slider", "Number of observations:", 1, 100, 50),
        bookmarkButton('bookmark1')
      )
    )
  )
)
}

#3

@Tony_Duan I am glad you figured out your problem. Would you mind marking your post containing your solution as “solution”. If you click the ... at the bottom of the post you should see a box with a check in it. If you click that then it will be marked as correct.

In the future, when posting code, please wrap your code with three backticks ``` on the lines above and below your code so that it is formatted correctly. Thanks!