탭 선택

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']]) 
      } 
     } 

     }) 

희망을 작동하는 것!