Übergeben Sie glänzende Widget-Initialwerte vom Server

Question

Um die Freigabe eines bestimmten Status einer App zu ermöglichen, möchte ich Widget initial selected Werte basierend auf dem bereitgestellten URL-Hash festlegen. Ich weiß einfach nicht, wie man den Hash-Wert in der Initialisierungsphase weitergibt. Dies veranschaulicht:

library(shiny); library(shinyjs) 

urlCode = "shinyjs.pageURL = function(params){ if(params[0] != ''){location.href = location.origin + '/#' + params[0];}}" 

server = function(input, output, session) { 
    observeEvent(session$clientData$url_hash, { 
    hash = substr(session$clientData$url_hash, 2,10) 
    # I need to pass hash to selectInput selected value 
    # and pass `toupper(hash)` to tabsetPanel selected value 
    }) 

    observeEvent(input$txt, { 
    js$pageURL(input$txt) # appends tab choice to URL as hash 
    }) 
} 

ui = fluidPage(
    useShinyjs(), 
    extendShinyjs(text = urlCode), 
    selectInput("txt", "tab choice:", c("one", "two", "three"), selected = 'two'), # to be initialised as hash value 

    # tab menu 
    tabsetPanel(id = 'tab_menu', selected = 'TWO', # to be initialised as hash value 
       tabPanel("ONE", textInput('txt_one', 'one text', '')), 
       tabPanel("TWO", textInput('txt_two', 'two text', '')), 
       tabPanel("THREE", textInput('txt_three', 'three text', '')) 
) 
) 

shinyApp(ui = ui, server = server, options = list(launch.browser=T)) 

Werte derzeit als ‚zwei‘ (selectInput) initialisiert und ‚zwei‘ (tabsetPanel), aber diese müssen ihre Anfangswerte von dem hash Parameter in dem Fall zu übernehmen, dass die URL-Aufruf ist z http://domain/#three (im Gegensatz zu Root http://domain/). Dankbar für irgendwelche Hinweise.

Answer 1

Sie müssen die "#" entfernen und update* Funktionen wie folgt verwenden:

library(shiny) 

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

    observe({ 
    hash <- gsub(pattern = "#", replacement = "", x = session$clientData$url_hash) 
    updateTabsetPanel(session = session, inputId = "tab_menu", selected = toupper(hash)) 
    updateSelectInput(session = session, inputId = "txt", selected = hash) 
    }) 
} 

ui <- fluidPage(

    selectInput("txt", "tab choice:", c("one", "two", "three"), selected = 'two'), # to be initialised as hash value 

    # tab menu 
    tabsetPanel(
    id = 'tab_menu', selected = 'TWO', # to be initialised as hash value 
    tabPanel("ONE", textInput('txt_one', 'one text', '')), 
    tabPanel("TWO", textInput('txt_two', 'two text', '')), 
    tabPanel("THREE", textInput('txt_three', 'three text', '')) 
) 
) 

shinyApp(ui = ui, server = server)