Ниже у меня есть простое блестящее приложение, в котором пользователь может сделать выбор, используя эти виджеты. Можно ли сохранить и загрузить все настройки, как пользователь установит в Shiny App, чтобы он мог в следующий раз открыть приложение и загрузить эти же настройки из местоположения на своем компьютере, после чего приложение изменит свое сразу настройки, как раньше?
#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)
})
}