我正在尝试整合一个框架,让Shiny在我拥有的一组类上异步工作,使用期货和可能的承诺.我使用一组模拟我的实际设置的外部模块组建了一个测试项目.
注意:我还试图实现在此框架中抛出错误的完全相同的调用:FutureProcessor.R,并且返回的错误是相同的.
基本上,按钮单击调用实例化类的实例的函数,然后执行简单的计算.当第一个按钮作为一个直接过程运行时,这很好.但是,当我使用%< - %assigmment运行它时,它返回以下错误:Warning: Error in getClass: "cTest" is not a defined class
我很清楚,我没有做到这一点!但是我不确定我想做的事情是否可能？
设置如下:
闪亮的应用程序:
## Load required libraries
pacman::p_load(shiny, here, promises, future)
setwd(here())
source(here("testing.R"))
source(here("TestClass.R"))
plan(multisession)
# Define UI
ui <- fluidPage(
# Application title
titlePanel("Test external classes"),
# Sidebar
sidebarLayout(
sidebarPanel(
actionButton("clickMe", "I work"),
actionButton("clickMeToo", "I don't work")
),
# Show a text output
mainPanel(
verbatimTextOutput("outputText1"),
verbatimTextOutput("outputText2")
)
)
)
# Define server logic
server <- function(input, output) {
myResult <- NULL
observeEvent(input$clickMe, …我有一个数据集:
ID Value
102 306
41 800
101 783
105 193
myID 334
我想把它画成一个数据表,其中只有'myID'的行是橙色的,而其余的表是蓝色的.看过辅助函数和其他示例,似乎我应该使用styleEqual.但是,我不知道其他行中的值是什么,并且它们也会动态更改.
我试过用
datatable(tableData) %>%
formatStyle(0, target= 'row',color = 'black', backgroundColor = tableColour,
lineHeight='70%', padding = '3px 3px', fontSize = '80%') %>%
formatStyle('ID', target = 'row',
backgroundColor = styleEqual(c("myID"), c('orange')))
但是,这不起作用 - 整个表是蓝色的,第二个formatStyle语句被忽略.如果我删除第一个formatStyle,我的行会变成橙色,但会丢失所有其他格式.有没有办法使用styleEqual来定义eg c("myID", "All other IDs"),还是有另一种解决方法？
我是 Java 新手，目前正在尝试在 IntelliJ 中构建一个 Cucumber/selenium 项目，其中包含两个模块：一个包含页面定义的库项目，以及一个包含与这些页面定义对话的 Cucumber 功能和步骤定义的测试项目。这个想法是页面定义是共享资源，并且测试特定于不同的项目/组。这两个模块位于父项目下的同一级别。构建使用 Gradle，settings.gradle父级文件如下所示：
rootProject.name = 'composite-builds'
includeBuild 'libraryproject'
includeBuild 'testproject'
在父项目上使用 GradleincludeBuild效果很好，并且整个项目都会导入。但是，我在测试项目的导入语句中没有使用库项目。它始终向我返回这些类型的错误：java: package libraryproject.pageFactory.examplePages does not exist并且显然没有看到库模块。
为了让测试项目识别库项目，我需要做什么/添加什么？我确实尝试includeBuild在settings.gradle测试项目中添加语句，但这没有什么区别。
图书馆可以在这里找到
更新：我看不到库项目中的模块的真正原因是它们保存在测试文件夹中，而不是主文件夹中。
我被要求创建一些我不确定在 Shiny 中是否可行的东西：当用户右键单击数字输入时出现的上下文菜单。我知道如何在图表上显示上下文弹出窗口（请参阅下面的代码），但这并不能帮助我回答以下问题：
我很高兴收到“不可能”或“除非你今天学会所有 Javascript 否则不可能”的答案。如果是这样，我会考虑另一种方法将这种上下文相关的响应合并到界面中。
单击图表时生成悬停窗口的示例代码：
library(shiny)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Old Faithful Geyser Data"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
numericInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30
)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot", click = "plotclick"),
uiOutput("plotClickInfo")
)
)
)
# Define server logic required to draw …