selectInput中的R闪亮自定义图标/图像

rmf

我在闪亮的应用程序中包含以下代码,以使用户可以选择他们想在绘图上使用的点形。

selectInput("pch", "Point shape",c("15","16","17","18"),selectize = TRUE,multiple=F)

出于美学原因(也是出于实际原因),我想拥有4个绘图字符的4张图像,而不只是数字15、16、17、18。

同样,在此示例中,

selectInput("col", "Colour",colours(),selectize = TRUE,multiple=F)

除了使用颜色的文本名称之外,我还想使用颜色的图像或颜色选择器。

我的想法如下:

在此处输入图片说明 在此处输入图片说明

谢谢

rmf

这是一个工作示例。目的是在下拉菜单中向用户显示调色板中的颜色(而不只是调色板名称)。此处下拉列表中的图像是在运行时创建的。这可能是理想的,也可能不是理想的。如果下拉菜单中的图像永不更改(即静态),请参见SeGa的答案。

这是从此处显示的示例修改而来的

在此处输入图片说明

ui.R 文件

## UI.R

fluidPage(
  title='Plots in Selectize Input',
  tags$h2('Plots in Selectize Input'),
  fluidRow(
    column(4,
           selectizeInput('palette',label="Palette",choices=NULL,options=list(
             placeholder='Select a colour palette',maxOptions=4)
           )),
    column(8,
      plotOutput('plot')
      )
    )
  )

server.R 文件

## SERVER.R

library(ggplot2)

data(diamonds)
len <- length(levels(diamonds$cut))
clist <- list("rainbow"=rainbow(len),"topo"=topo.colors(len),
              "terrain"=terrain.colors(len),"cm"=cm.colors(len))

function(input,output,session) {

  paletteurl <- session$registerDataObj(

    name='uniquename1',
    data=clist,
    filter=function(data,req) {

      query <- parseQueryString(req$QUERY_STRING)
      palette <- query$palette
      cols <- clist[[palette]]

      image <- tempfile()
      tryCatch({
        png(image,width=100,height=50,bg='transparent')
        par(mar=c(0,0,0,0))
        barplot(rep(1,length(cols)),col=cols,axes=F)
      },finally = dev.off())

      shiny:::httpResponse(
        200,'image/png',readBin(image,'raw',file.info(image)[,'size'])
      )
    }
  )

  updateSelectizeInput(
    session,'palette',server=TRUE,
    choices=names(clist),
    selected=1,
    options=list(render=I(sprintf(
      "{
        option: function(item, escape) {
        return '<div><img width=\"100\" height=\"50\" ' +
        'src=\"%s&palette=' + escape(item.value) + '\" />' +
        escape(item.value) + '</div>';
        }
      }",
      paletteurl
    )))
    )

  output$plot <- renderPlot({
    shiny::req(input$palette)

    cols <- clist[[input$palette]]
    ggplot(diamonds,aes(x=carat,y=price,colour=cut))+
      geom_point()+
      scale_colour_manual(values=cols)+
      theme_minimal(base_size=18)
  })

}

如果有人对此有更好的了解,欢迎您改进/更新此答案。甚至添加另一个答案以显示不同的用法。

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何在Google Map API中的自定义图标图像上显示标签

来自分类Dev

自定义闪亮的selectInput中的下拉宽度

来自分类Dev

自定义闪亮的selectInput中的下拉宽度

来自分类Dev

如何使用本地磁盘或网络驱动器中的图像显示自定义KML地标图标

来自分类Dev

如何在链接旁边的鼠标悬停时更改自定义图标图像?

来自分类Dev

自定义“返回父级” ActionBar图标图像不起作用

来自分类Dev

AngularJS-自定义图标图标

来自分类Dev

从 CSS 中的图像创建自定义图标

来自分类Dev

单击页面,MAC,多种浏览器中的任意位置后,自定义光标图像消失

来自分类Dev

JavaFX拖放,带有鼠标图标旁边的自定义节点

来自分类Dev

jsTree 3中的自定义图标?

来自分类Dev

自定义searchview中的关闭图标

来自分类Dev

在Woocommerce中调用自定义图标

来自分类Dev

静态网站中的自定义图标

来自分类Dev

自定义输出闪亮

来自分类Dev

自定义输出闪亮

来自分类Dev

在Java中设置图标图像

来自分类Dev

croogo admin导航中的图标图像

来自分类Dev

R闪亮的updateSelectizeInput标签的自定义HTML标签

来自分类Dev

如何在balsamiq样机中添加自定义图像/图标?

来自分类Dev

如何在balsamiq样机中添加自定义图像/图标?

来自分类Dev

引导程序按钮中的文本和图标与自定义图像的左对齐

来自分类Dev

CSS将自定义光标图像的原点(热点)更改为居中

来自分类Dev

如何使用指标图像(如whatsapp)制作自定义进度栏?

来自分类Dev

将光标更改为自定义光标图像作为资源

来自分类Dev

滑块输入中的自定义值闪亮

来自分类Dev

自定义UIActivity:图像图标颜色反转

来自分类Dev

添加自定义apex:inputFile图标/图像

来自分类Dev

自定义图像以添加到地图标记

Related 相关文章

  1. 1

    如何在Google Map API中的自定义图标图像上显示标签

  2. 2

    自定义闪亮的selectInput中的下拉宽度

  3. 3

    自定义闪亮的selectInput中的下拉宽度

  4. 4

    如何使用本地磁盘或网络驱动器中的图像显示自定义KML地标图标

  5. 5

    如何在链接旁边的鼠标悬停时更改自定义图标图像?

  6. 6

    自定义“返回父级” ActionBar图标图像不起作用

  7. 7

    AngularJS-自定义图标图标

  8. 8

    从 CSS 中的图像创建自定义图标

  9. 9

    单击页面,MAC,多种浏览器中的任意位置后,自定义光标图像消失

  10. 10

    JavaFX拖放,带有鼠标图标旁边的自定义节点

  11. 11

    jsTree 3中的自定义图标?

  12. 12

    自定义searchview中的关闭图标

  13. 13

    在Woocommerce中调用自定义图标

  14. 14

    静态网站中的自定义图标

  15. 15

    自定义输出闪亮

  16. 16

    自定义输出闪亮

  17. 17

    在Java中设置图标图像

  18. 18

    croogo admin导航中的图标图像

  19. 19

    R闪亮的updateSelectizeInput标签的自定义HTML标签

  20. 20

    如何在balsamiq样机中添加自定义图像/图标?

  21. 21

    如何在balsamiq样机中添加自定义图像/图标?

  22. 22

    引导程序按钮中的文本和图标与自定义图像的左对齐

  23. 23

    CSS将自定义光标图像的原点(热点)更改为居中

  24. 24

    如何使用指标图像(如whatsapp)制作自定义进度栏?

  25. 25

    将光标更改为自定义光标图像作为资源

  26. 26

    滑块输入中的自定义值闪亮

  27. 27

    自定义UIActivity:图像图标颜色反转

  28. 28

    添加自定义apex:inputFile图标/图像

  29. 29

    自定义图像以添加到地图标记

热门标签

归档