闪亮的应用程序,可供多用户编辑 [英] shiny app for multiple users to edit
本文介绍了闪亮的应用程序,可供多用户编辑的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
期待您的建议/建议 谢谢!
推荐答案
我发现以下模式对我有效:在server
外部创建reactiveVal
对象,然后在应用程序中访问/更新它。在这里,我编写了一个用于获取消息并将其附加到聊天中的包装器。(代码如下)
reactiveFileReader
的文档,以获取更方便的文件访问方式。
library(shiny)
ui <- fluidPage(
sidebarLayout(
sidebarPanel(
textInput("msg", "Message", placeholder = "type a message in the chat"),
actionButton("submit", "submit")
),
mainPanel(
verbatimTextOutput("text")
)
)
)
createChat <- function(initVal) {
chat_text <- reactiveVal(initVal)
list(
get = function(){ chat_text() },
append = function(val) {
chat_text(paste0(isolate(chat_text()), "
", val))
}
)
}
myChat <- createChat("## This is a chat ##
")
server <- function(input, output) {
observeEvent(input$submit, {
myChat$append(input$msg)
})
output$text <- renderText(myChat$get())
}
shinyApp(ui = ui, server = server)
这篇关于闪亮的应用程序,可供多用户编辑的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文