Estou tentando usar o botão de ação para retornar o painel condicional anterior. Até agora, escrevi o código a seguir para navegar através de uma série de painéis condicionais, mas não consigo voltar ao caso anterior, pois não consigo atualizar os valores de entrada, pois isso gera o seguinte erro:

Aviso: Erro em $ <-. Reactivevalues: tentativa de atribuir valor a um objeto reactivevalues somente leitura

O código é o seguinte:

ui.R

shinyUI(
  fluidPage(
    conditionalPanel(
      condition <- "typeof input.link_click  === 'undefined'",
      leafletOutput("Map", width = 1000, height = 500)

    ),


    conditionalPanel(
      condition <- "typeof input.link_click_Site  === 'undefined' && typeof input.link_click  !== 'undefined'",


      leafletOutput("CountryMap", width = 1000, height = 500)

    ),
    conditionalPanel(
      condition <- "typeof input.link_click_Site  !== 'undefined'",

      h3("Plots related to site chosen"),
      textOutput(outputId = "Check"),
      actionButton("Back", "Back")
    )
  )  
)

server.R

library(shiny)
library(leaflet)
library(maps)

shinyServer(function(input, output, session) {

Country = map("world", fill = TRUE, plot = FALSE, regions="USA")
output$Map <- renderLeaflet({
  leaflet(Country) %>% addTiles() %>%  setView(0, 0,  zoom = 2)%>%
    #leaflet(target) %>% addTiles() %>%
    addPolygons(fillOpacity = 0.6,
                fillColor = 'blue',
                smoothFactor = 0.5, stroke = TRUE, weight = 1, popup =  paste("<b>", "USA", "</b><br>",
                                                                              actionLink(inputId = "View", 
                                                                                         label = "View Details", 
                                                                                         onclick = 'Shiny.onInputChange(\"link_click\",  Math.random())')))
})

output$CountryMap <- renderLeaflet({

  leaflet(Country) %>% addTiles() %>%   
    fitBounds(Country$range[1], Country$range[3], Country$range[2], Country$range[4])%>%
    addMarkers(lng = -71.03 , lat = 42.37, popup = paste("<b>", "Boston", "</b><br>",
                                                         actionLink(inputId = "View", 
                                                                    label = "View Details", 
                                                                    onclick = 'Shiny.onInputChange(\"link_click_Site\",  Math.random())')))
})


observeEvent(input$link_click_Site, {
  output$Check <- renderText("Success")

})

observeEvent(input$Back, {
  input$link_click_Site <- 0
})

})