相关疑难解决方法(0)

在与同事讨论性能,教学,发送错误报告或在邮件列表上搜索指导时,以及在Stack Overflow上,通常会询问可重复的示例并始终提供帮助.

您有什么建议创建优秀示例的提示？如何以文本格式粘贴r中的数据结构？您还应该包含哪些其他信息？

在另外还有其他招数来使用dput(),dump()或structure()？你什么时候应该包括library()或require()声明？其中保留字应避免一个,此外c,df,data等？

怎样才能成为一位伟大的[R重复的例子？

我正在尝试使用shinydashboard设置一个闪亮的应用程序,并且在大多数情况下,祝你好运.但是,我正在遇到一个我认为可以避免的侧边栏行为的怪癖,但还没有找到.

下面是一个小例子,它重现了我遇到的问题.基本上,有两个sidebarMenus - Menu One和Menu Two,每个都有两个menuSubItems.在菜单项中切换子项可以正常工作.所以,如果我想从subItemOne切换到subItemTwo,没有问题.我可以整天这样做.

我也可以跨菜单切换到subItems,这样从subItemOne跳转到subItemThree,这很好.问题在于试图切换回来.如果选择了subItemOne,我尝试转到subItemThree并返回 subItemOne,我无法做到.我必须去subItemTwo,然后我可以打开SubItemOne.

有没有办法纠正这个设置,以便我可以直接从subItemOne跳转到subItemThree(或两个和四个),然后再回来？

library('shiny')
library('shinydashboard')
# Sidebar #############################
sidebar <- dashboardSidebar(
  width = 290,

  sidebarMenu(
    menuItem('Menu One', tabName = 'menuOne', icon = icon('line-chart'), 
        collapsible = 
            menuSubItem('Sub-Item One', tabName = 'subItemOne'),
            menuSubItem('Sub-Item Two', tabName = 'subItemTwo')
            )
  ),

  sidebarMenu(
    menuItem('Menu Two', tabName = 'menuTwo', icon = icon('users'), 
             collapsible = 
               menuSubItem('Sub-Item Three', tabName = 'subItemThree'),
             menuSubItem('Sub-Item Four', tabName = 'subItemFour')
    )
  )

)
# Body #############################
body <- dashboardBody(

  tabItems(
    tabItem(tabName = 'subItemOne',
            h2('Selected Sub-Item …