- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个带有模块的大型 Shiny 应用程序,我正在将其中一些模块转换为 R6 类。除了嵌套模块外,一切都运行良好:我面临命名空间问题并且 uiOutput 不起作用。
这是一个可复制的示例。 ClassTest 类是类层次结构的最后一个类。它可以由 App 直接调用,也可以通过 Temp 类调用。在后一种情况下(嵌套类),uiOutput 中包含的元素不起作用。
library(shiny); library(R6)
ClassTest = R6Class(
"ClassTest",
public = list(
# attributes
id = NULL,
# initialize
initialize = function(id){
self$id = id
},
# UI
ui = function(){
ns = NS(self$id)
tagList(
h4('Test class'),
uiOutput(ns('showText'))
)
},
# server
server = function(id){
moduleServer(id,
function(input, output, session){
ns = session$ns
output$showText <- renderUI({
print('In showText <- renderUI')
tagList(
p('I am the showText renderUI of the Test class')
)
})
}
)
},
call = function(input, ouput, session){
self$server(self$id)
}
)
)
#----------------------------------------------------------
Temp = R6Class(
"Temp",
public = list(
# attributes
temp = NULL,
id = NULL,
# initialize
initialize = function(id){
self$id = id
self$temp <- ClassTest$new('testTiers')
},
# UI
ui = function(){
ns = NS(self$id)
tagList(
uiOutput(ns('showTestClass'))
)
},
# server
server = function(id){
moduleServer(id,
function(input, output, session){
ns = session$ns
output$showTestClass <- renderUI({
self$temp$ui()
})
})
},
call = function(input, ouput, session){
self$server(self$id)
}
)
)
#----------------------------------------------------------
App = R6Class(
"App",
public = list(
# attributes
temp = NULL,
classT = NULL,
# initialize
initialize = function(){
self$temp = Temp$new('temp')
self$classT = ClassTest$new('directTest')
},
# UI
ui = function(){
tagList(
h3('Call by another class'),
self$temp$ui(),
hr(),
h3('Direct call'),
self$classT$ui()
)
},
# server
server = function(input, output, session){
self$temp$call()
self$classT$call()
}
)
)
app = App$new()
shiny::shinyApp(app$ui(), app$server)
最佳答案
你的代码有点复杂,但我敢肯定你错过了调用 server
母类和子模块中的子类也需要尊重母亲的命名空间。这是一个工作示例,它执行它打算做的事情:
library(shiny)
library(R6)
MyModule <- R6Class(
"MyModule",
public = list(id = NULL,
initialize = function(id) {
self$id <- id
},
ui = function() {
ns <- NS(self$id)
tagList(h4(self$id),
actionButton(ns("do"), "Calc!"),
verbatimTextOutput(ns("print")))
},
server = function() {
moduleServer(self$id, function(input, output, session) {
output$print <- renderPrint({
input$do
sample(100, 1)
})
})
}
)
)
MyMotherModule <- R6Class(
"MyMotherModule",
public = list(id = NULL,
child = NULL,
initialize = function(id) {
self$id <- id
self$child <- MyModule$new(NS(id)("child"))
},
ui = function() {
self$child$ui()
},
server = function() {
self$child$server()
}
)
)
App <- R6Class(
"App",
public = list(child1 = NULL,
child2 = NULL,
mother = NULL,
initialize = function() {
self$child1 <- MyModule$new("child1")
self$child2 <- MyModule$new("child2")
self$mother <- MyMotherModule$new("mother1")
},
ui = function() {
fluidPage(
fluidRow(
self$child1$ui(),
self$child2$ui(),
self$mother$ui()
)
)
},
server = function() {
function(input, output, session) {
self$child1$server()
self$child2$server()
self$mother$server()
}
}
)
)
app <- App$new()
shinyApp(app$ui(), app$server())
一些备注
id
母模块中的子模块的名称也必须命名为 MyModule$new(NS(id)("child"))
遵守名称必须仅在模块内唯一而不是整体的想法。如果我没有命名空间 child
在我的示例中,child
顶层的元素会搞砸。 (从技术上讲,它可以在没有命名空间的情况下工作,但是如果您碰巧使用带有子元素名称的顶级元素,您的用户会得到奇怪的结果)。 self$child$server()
在您的母亲模块中“开启” child 的服务器逻辑。 关于R Shiny 应用程序: renderUI does not work with nested modules R6 classes,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/64406234/
在查看Thermostat Guide时,我没有提到湿度读数。这些数据可以通过API获得吗?会在以后的版本中吗? 最佳答案 从NestAPI v1.1开始,似乎湿度数据可以作为只读字段使用。 可以在v
我从以下位置获取了授权码 https://home.nest.com/login/oauth2?client_id=CLIENT_ID&state=FOO . 我想获取access_token,但是出
使用1.1.2版本的Nest,似乎至少有3种索引多个文档的方法: IndexMany client.IndexMany(documents, "index_name", "type_name"); 使
我有2个POJO(人和车),其中一个由另一个人引用 @Document(indexName = "person", type = "user") public class Person { @
Nest Protect(烟雾和一氧化碳警报)可以测量温度和湿度,但官方或非官方 API 似乎都不允许访问这些数据。有人在工作吗?任何视线访问这些数据?建议?谢谢! 最佳答案 $infos = (o
自从我得到 Nest 以来,我所想要的就是能够在很长一段时间内汇总我的能量使用情况以寻找模式,主要是满足我的好奇心。当然有每月使用报告,而且网络和设备只能追溯到 10 天。 API 是否公开了这些数据
我在获取和更改 Nest 恒温器提供的一些基本数据时遇到了问题。 使用命令行,我如何获取或更改恒温器上的个别设置或值? 最佳答案 这是几个用户的汇编,解释了如何检索或更改一些基本信息,并添加了我自己的
我和我的一位同事就以下最佳实践问题进行了讨论。 大多数函数/方法都从一些参数检查开始。 我提倡以下风格,避免嵌套。 if (parameter one is ugly) return ERROR; i
我有 4 个表: ChatRooms Participants Messages Users 聊天室有很多参与者 聊天室有很多消息 用户有很多消息 用户有很多参与者 参与者属于用户 消息属于用户 我正
我编写了以下函数并得到如下所示的响应: public async Task ShowMapping(string indexname) { var resu
我正在使用 NEST 为我的对象编制索引,但在序列化时遇到了 Newtonsoft 错误。我的一个对象有一个自引用循环。有没有一种方法可以让我访问 JsonSerializer 并更改它处理自引用的方
设置目标温度会引发如下错误。我正在使用 php curl 来设置温度。任何帮助表示赞赏。 object(stdClass)#72 (2) { ["cmd"]=> stri
我编写了以下函数并得到如下所示的响应: public async Task ShowMapping(string indexname) { var resu
我正在使用 Nest Developer https://developer.nest.com/用于创建 iOS 应用程序的 API。有谁知道如何将 Firebase 框架链接到我的应用程序中?我不断
我是名为 Feather (featherapp.co) 的综合性 Apple TV 应用程序的开发者。我遇到的一个问题是用户希望能够查看他们相机的实时画面。 有没有人确定访问摄像头实时画面的方法?我
免责声明 - 我担心这个问题可能是重复的,因为功能看起来很基本,所以我知道我可能会得到一个骗局。但我找不到有效的解决方案 所以我有一个可观察的数组设置如下 self.meetingAttendees
我正试着给我的模块提供一个令牌。该模块如下所示:。我将AuthGuardModule导入到的父模块如下所示:。而gardConfigProvider本身如下所示:。但我得到一个错误:Error[Exc
我正试着给我的模块提供一个令牌。该模块如下所示:。我将AuthGuardModule导入到的父模块如下所示:。而gardConfigProvider本身如下所示:。但我得到一个错误:Error[Exc
每 10 秒使用一次访问 token 时遇到太多请求错误。在重新阅读文档时,我意识到这是一个禁忌(“为了避免错误,我们建议您以每分钟一次或更短的速度提出请求”)。 有谁知道我会被限制多久? 最佳答案
我使用嵌套 plist 来创建对象结构(CLOS 类型),将嵌套的对象传递给它的部分。我想以迭代方式 append 嵌套的 plist,但因此我想在时间和内存方面高效地完成它。 以下示例显示了由于一次
我是一名优秀的程序员,十分优秀!