R 在一个闪亮的应用程序中保存并加载用户设置的所有设置

R 在一个闪亮的应用程序中保存并加载用户设置的所有设置,r,shiny,R,Shiny,下面我有一个简单的闪亮应用程序,用户可以使用这些小部件做出一些选择。是否可以保存并加载用户将在Shining应用程序中设置的所有设置,以便下次打开应用程序并从其计算机上的某个位置加载这些相同的设置,从而使应用程序立即将其设置更改为以前的设置 #ui.r navbarPage( "Application", tabPanel("General", sidebarLayout( sidebarPanel( uiO

下面我有一个简单的闪亮应用程序,用户可以使用这些小部件做出一些选择。是否可以保存并加载用户将在Shining应用程序中设置的所有设置,以便下次打开应用程序并从其计算机上的某个位置加载这些相同的设置,从而使应用程序立即将其设置更改为以前的设置

#ui.r
navbarPage(
  "Application",
  tabPanel("General",
           sidebarLayout(

             sidebarPanel(
               uiOutput("tex1"),
               br(),
               uiOutput("num"),
               br(),

               uiOutput("num2")
              ),



             mainPanel(
               wellPanel(
                 h4("Format"),
                 fluidRow( # Width = sum of component columns
                   tags$style(type="text/css",
                              ".shiny-output-error { visibility: hidden; }",
                              ".shiny-output-error:before { visibility: hidden; }"
                   ),
                   column(3,
                          h5("Booklet ID"),
                          div(style="display: inline-block;vertical-align:top; width: 150px;",uiOutput("num3"))


                   )
                 )
                 )



             )
           )))





#server.r
library(shiny)


server <- function(input, output,session) {

  output$tex1<-renderUI({
    textInput("text", h4("Run Name") 
    )
  })
  output$num<-renderUI({
    numericInput("nm", 
                 h4("Items"), 
                 value = 50,min = 1)
  })
  output$num2<-renderUI({
    numericInput("nm2", 
                 h4("Dimensions"), 
                 value = 1,min = 0,max = max(input$nm))
  })
  output$num3<-renderUI({
    textInput("nm3", 
              h6("Column"), 
              value = 1)
  })







}
#ui.r
导航栏页(
“应用程序”,
选项卡面板(“一般”,
侧边栏布局(
侧栏面板(
uiOutput(“tex1”),
br(),
uiOutput(“num”),
br(),
UIM输出(“num2”)
),
主面板(
井面板(
h4(“格式”),
fluidRow(#宽度=组件列的总和
标记$style(type=“text/css”,
“.Shining输出错误{可见性:隐藏;}”,
“.Shining输出错误:在{可见性:隐藏;}之前”
),
第(3)栏,
h5(“小册子编号”),
div(style=“显示:内联块;垂直对齐:顶部;宽度:150px;”,uiOutput(“num3”))
)
)
)
)
)))
#服务器.r
图书馆(闪亮)

服务器是,可以使用书签:

shinyApp()
有一个参数
启用书签
。如果将其设置为
url
,则可以创建链接并以创建书签时的状态访问该页面


注意:如果将
enableBookmarking
参数设置为server,您还可以将应用程序的状态保存到磁盘。

功能强大,回答正确!我猜这个答案的问题是,如果你关闭应用程序,那么url就没有用了,因为如果你没有在线发布应用程序,它在本地运行。服务器参数不能解决这个问题吗?请参阅答案的最后一句,…它创建了一个名为“闪亮书签”的文件夹,其中包含我的选择列表。但是,当我重新启动应用程序时,如何调用它们,而不仅仅是存储它们?