我希望有一个闪亮的网站,将URL中的动态选择保持为输出,这样您就可以复制和共享URL.我把这段代码作为例子:https: //gist.github.com/amackey/6841cf03e54d021175f0
并将其修改为我的案例,这是一个网页,navbarPage
每个元素在栏中有一个和多个标签.
我想要的是将用户引导到第一级tabPanel中的右侧元素的URL,以及第二级tabPanel中的右侧选项卡.
这是,如果用户导航到"Delta Foxtrot"然后导航到"Hotel",然后将参数更改为
#beverage=Tea;milk=TRUE;sugarLumps=3;customer=mycustomer
,我希望URL将用户发送到"Delta Foxtrot" - >"Hotel",而不是从第一个面板元素的第一个选项卡.
理想情况下,我想要一个有效的例子,因为到目前为止我尝试的一切都没有用.
有任何想法吗?
# ui.R
library(shiny)
hashProxy <- function(inputoutputID) {
div(id=inputoutputID,class=inputoutputID,tag("div",""));
}
# Define UI for shiny d3 chatter application
shinyUI(navbarPage('URLtests', id="page", collapsable=TRUE, inverse=FALSE,
tabPanel("Alfa Bravo",
tabsetPanel(
tabPanel("Charlie",
tags$p("Nothing to see here. Everything is in the 'Delta Foxtrot' 'Hotel' tab")
)
)
)
,tabPanel("Delta Foxtrot",
tabsetPanel(
tabPanel("Golf",
tags$p("Nothing to see here. Everything is in the 'Delta Foxtrot' 'Hotel' tab")
)
,tabPanel("Hotel",
tags$p("This widget is a demonstration …
Run Code Online (Sandbox Code Playgroud)