我遇到了以下问题,我试图在这个最小的可重现示例中总结这些问题。 该应用程序应该能够动态创建模块并在标签面板objTP的选项卡中呈现模块的UI -在我的示例中为obj_UI。每个模块都应该呈现一个objR6类型的R6对象。我希望将生成的R6对象保存到名为objCollection的reactiveValues变量中,并将其显示在名为displayValues的verbatimTextOutput中。 当单击input$addObject按钮时,我得到错误消息"Error in <-: cannot add bindings to a locked environment"
当运行下面的第一个“几乎MWE”代码(它使用了服务器部分中的条件面板和"renderUI“函数)时,只有当我从底部注释掉第3行observeEvent(vector.final(periods(),yield_input()),{yield_vector.R <<- unique(vector.final(periods(),yield_input()))})时,它才能正确运行。如果我运行这行激活的代码,它就会崩溃,并得到错误消息Error in [: subscript out of bounds,根据我的研究,这意味着它正在尝试访问超出其边界的数组。
library(s
当一个动态输入元素被添加到UI中时,它将触发它已经存在的observeEvent。特别是,请参阅下面的示例,其中textInput是在服务器端函数的第一次加载时动态添加的。然后,当它呈现时,observeEvent将被触发。
有没有一种方法可以避免这种在添加输入元素时触发的情况,特别是,我希望以类似的方式测试输入1和输入2触发,也就是说,不是在初始化时。
UI.R文件
library(shiny)
# Define UI for application that draws a histogram
shinyUI(fluidPage(
fluidRow(
uiOutput("
我正在尝试将esquisse集成到一个应用程序中。目前,我有一个应用程序,允许用户过滤一些数据,我想将这些数据传递给esquisse。observeEvent将reactiveValues作为输入,通常使用Esquisse进行更新。但是,我不确定如何在这里使用observeEvent,因为当有许多不同的过滤器发生更改时,数据会更新。有没有一种方法可以在每次数据更改时更新这些值? 示例应用程序: library(shiny)
library(esquisse)
ui <- fluidPage(
titlePanel("Use esquisse as a Shiny mod
因此,我设置了一个在服务器上发布的Rshiny应用程序,但是我们需要一个API身份验证令牌来确保给定用户有访问权限。身份验证过程是在应用程序之外的JS标记中处理的,而实际的R闪亮进程则保存在页面上的iFrame中。
我将js脚本保存在与应用程序一起打包的www/子目录中。JS脚本在localStorage中查询一个值以确定userID,并使用此令牌调用API验证以确定访问。它看起来是这样的(fetch是一个自定义函数,它查询本地存储以设置auth值)。
/**
* This Fn ! using to vaidate the user login access
* @param none
我是新来的,所以请容忍我。我正在尝试创建一个交互模型,它的工作方式如下:
用户使用滑块/按钮设置一些参数,并点击"button1“。生成模型。
然后用户可以选择一些输入并推送"button2“来根据他们刚刚生成的模型得到预测。
理想情况下,它应该是这样的:
server <- function(input, output, session){
observeEvent(input$button1, {
# generate the model, model <- lm(...)
# pass general information about th