相关疑难解决方法(0)

我有一个闪亮的应用程序,每个选项卡上有许多选项卡和许多小部件.它是一个数据驱动的应用程序,因此数据与每个选项卡相关联.

我可以使用保存应用程序image.save()并创建一个.RData文件供以后使用.

我遇到的问题如何才能为小部件恢复状态？

如果用户已选中复选框,则可以在列表框中选择单选按钮和指定的基线值,然后在load()步骤中设置这些值？

我已经发现库如shinyURL和shinystore但有一种直接的方式来设置环境回来的时候到write.image了呢？

我不知道从哪里开始所以我不能发布代码.

编辑:这是来自Shiny Google Group的交叉帖子,其中提出了其他解决方案

假设您有一个简单的shinydashboard包含使用创建的链接menuItem和使用创建的页面tabItems：

library(shiny)
library(shinydashboard)

skin <- Sys.getenv("DASHBOARD_SKIN")
skin <- tolower(skin)
skin <- "blue"

## ui.R ##
sidebar <- dashboardSidebar(
  sidebarMenu(
    menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
    menuItem("Widgets", icon = icon("th"), tabName = "widgets",
             badgeLabel = "new", badgeColor = "green")
  )
)

body <- dashboardBody(
  tabItems(
    tabItem(tabName = "dashboard",
            h2("Dashboard tab content")
    ),
    
    tabItem(tabName = "widgets",
            h2("Widgets tab content")
    )
  )
)

# Put them together into a dashboardPage
ui<-dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  sidebar, …

我有一个带有多个标签的闪亮应用程序。每个选项卡都有数据表，绘图图表。在一个选项卡中，我尝试使用 URL 书签功能。当我将此书签用作单独的闪亮选项卡时，我可以单击带有书签的 URL，它会进入书签状态。然而，在这个更大的应用程序中，当我使用相同的代码时，URL 很长并且不会重定向到书签状态。这是带书签的 URL 的样子

library(shiny)
library(ggplot2)
library(DT)
library(shinyjqui)
library(shinydashboard)
library(shinydashboardPlus)
library(data.table)

ui <- navbarPage(
  "Navbar!",
  tabPanel("Plot",
           sidebarLayout(
             sidebarPanel(radioButtons(
               "plotType", "Plot type",
               c("Scatter" = "p", "Line" = "l")
             )),
             mainPanel(plotOutput("plot"))
           )),
  tabPanel(
    "Summary",
    fluidPage(
      plotOutput("bookmarkplot"),
      sliderInput("n", "Number of observations", 1, nrow(faithful), 100),
      fluidRow(column(
        2,
        textInput(
          inputId = "description",
          label = "Bookmark description",
          placeholder = "Data Summary"
        )
      ), column(2, bookmarkButton(id = "bookmarkBtn"))),
      DT::dataTableOutput("urlTable", width = "100%"),
      tags$style(type = 'text/css', "#bookmarkBtn { width:100%; margin-top: 25px;}")
    )
  ),
  navbarMenu(
    "More", …