タブ選択

Question

は、私は次のような構造を持つ光沢のあるアプリを持っています。 "med"の中に "TabMap"というタブセットがあります。

observe({ 
    query <- parseQueryString(session$clientData$url_search) 
    if (!is.null(query[['panelname']])) { 
     rv$rvpanel <- query[['panelname']] 
     updateTabsetPanel(session, "TabMap", selected = rv$rvpanel) 
    } 
    }) 

またはこの：

observe({ 
    query <- parseQueryString(session$clientData$url_search) 
    if (!is.null(query[['panelname']])) { 
     updateTabsetPanel(session, "TabMap", selected = query[['panelname']]) 
    } 
    }) 

しかし、どちらの作品私はこのようなURLを使用して "TabMap" を更新します。どうやってやるの？

PD：RVの$のrvpanelは...

TABSET反応値である：

output$bodyoutput <- renderUI({ 
    box(title = "Map", width ="100%", status = "info", solidHeader = TRUE, 
     uiOutput("tabmap")) 
    }) 

    output$tabmap <- renderUI({ 
    tabsetPanel(id = "TabMap", 
       tabPanel(width = "100%", title = "Add", value="panel5", uiOutput("formdead")), 
       tabPanel(width = "100%", title = "Ours", value="panel1", uiOutput("mapdeadout")), 
       tabPanel(width = "100%", title = "Month", value="panel4", uiOutput("mapmonthout")), 
       tabPanel(width = "100%", title = "Map", value = "panel2", uiOutput("maplifeout")), 
       tabPanel(width = "100%", title = "History", value="panel3", uiOutput("formhist")) 
       ) 
    }) 

Answer 1

あなただけ"TabMap"はすでにあなたの観察の前に入力してレンダリングされ、使用可能であるかどうかを確認するために、一つのことを逃しましたコードが実行されます。

以下このコード

observe({ 
     if(any(names(input) == "TabMap")){ 
      query <- parseQueryString(session$clientData$url_search) 
      if (!is.null(query[['panelname']])) { 
      rv$rvpanel <- query[['panelname']] 
      updateTabsetPanel(session, "TabMap", selected = rv$rvpanel) 

      } 
     } 

     }) 




    observe({ 
     if(any(names(input) == "TabMap")){ 
      query <- parseQueryString(session$clientData$url_search) 
      if (!is.null(query[['panelname']])) { 
      updateTabsetPanel(session, "TabMap", selected = query[['panelname']]) 
      } 
     } 

     }) 

を働くように見えるが、この情報がお役に立てば幸い！