如何动态地将字符串文本追加到闪亮的应用程序主体上？
丹波
我正在尝试selectInput在后面添加一个反应性文本（颜色名称为）到一个闪亮的应用程序主体tags$h3。我猜这更多是一个jQuery问题，但是现在它一直在添加选定的颜色，而不是“主动”显示字符串。
相反，我要替换的是字符串h3.colorLabel。
用户界面
library(shiny)
jsCode <- "shinyjs.pageCol = function(params){
$('body').css('background', params);
/*$('.colorName').after('<h3></h3>').addClass('colorLabel');
$('h3.colorLabel').replaceWith('<h3>'+params+'</h3>').addClass('colorLabel');
*/
$('h3.colorName').after('<h3>'+params+'</h3>').addClass('colorLabel');
};
"
shinyUI( fluidPage(
useShinyjs(),
extendShinyjs(text = jsCode),
selectInput("col", "Colour:",
c("white", "yellow", "red", "blue", "purple")),
tags$h3('Just in case you are color-blind, the background color is:', class='colorName')
))
服务器
library(shiny)
library(shinyjs)
shinyServer(
function(input,output,session) {
observeEvent(input$col, {
js$pageCol(input$col)
})
})
迈克·怀斯
我想这就是你想要的。它编辑h3' element with thecolorLabel`类的innerhtml。我还向ui代码中添加了一个相应的空初始化元素，因此需要进行一些编辑。
library(shiny)
library(shinyjs)
jsCode <- "shinyjs.pageCol = function(params){
$('body').css('background', params);
$('h3.colorLabel').text(params);
};
"
u <- shinyUI(fluidPage(
useShinyjs(),
extendShinyjs(text = jsCode),
selectInput("col","Colour:",
c("white","yellow","red","blue","purple")),
tags$h3('Just in case you are color-blind, the background color is:',class ='colorName'),
tags$h3('',class = 'colorLabel')
))
s <- shinyServer(
function(input,output,session) {
observeEvent(input$col, {
js$pageCol(input$col)
})
})
shinyApp(ui = u,server = s)
产生：
这是内部编辑的内容：
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
在Meteor中，如何将应用程序的根URL动态地附加到图像路径？
- 2
如何动态地将图像从URL的字符串数组添加到活动的scrollview线性布局
- 3
动态地将丢失的标签添加到损坏的HTML字符串中
- 4
如何动态地将模块注入到主要的Angular应用程序模块
- 5
如何动态地根据列表中的字符串？
- 6
如何动态地将未知数量的插入插入字符串？
- 7
如何使用C将字符串动态地放入数组
- 8
如何在Windows Store应用程序中将字符串追加到文件？
- 9
如何在android应用程序上呈现动态字符串集合
- 10
动态地将字符串分离为子字符串VB.NET
- 11
在Dynamic LINQ中使用Contains时如何动态地将Cast类型转换为字符串？
- 12
在Python中动态地向列表元素追加/插入值/字符串？
- 13
如何动态地将文本块添加到页面？
- 14
动态地如何使用javascript将更多的行和列追加到表中
- 15
如何动态地将事件处理程序附加到SVG组？
- 16
如何动态地将事件处理程序附加到SVG组？
- 17
动态地将EditText与（如果可能）具有字符串ID的片段一起添加到片段中
- 18
如何通过字符串动态地实例化Django表单？
- 19
如何动态地将Image添加到ImageView？
- 20
如何动态地将大块HTML附加到div？
- 21
如何动态地将图像添加到imageView
- 22
如何动态地将文本设置为TextView？
- 23
将文本作为字符串共享给另一个应用程序
- 24
如何在我的角度应用程序中调用和使用spring REST POST API，该应用程序返回没有主体的字符串？
- 25
如何动态地从R中的闪亮应用更改图表？
- 26
错误：在“闪亮”应用程序中只能将字符串转换为符号
- 27
使用查询字符串中的默认值的闪亮应用程序？
- 28
将图像添加到闪亮的应用程序
- 29
将弹出窗口添加到闪亮的应用程序？
我来说两句