在 Shiny R 中,根据用户选择有条件地渲染 html

     2023-03-24     277

关键词:

【中文标题】在 Shiny R 中,根据用户选择有条件地渲染 html【英文标题】:In Shiny R render html conditionally based on user selection 【发布时间】:2022-01-10 16:46:56 【问题描述】:

我想根据用户输入显示不同的 html 文件。基本上,用户在两个 pickerinput 元素中进行选择,并根据选择显示不同的 html 文件。

我的 ui 中有。 R

  fluidRow( style = "background-color:#FFFAFA00;",
       
            htmlOutput("example")
  ))),

在我的服务器中。 R

示例

if (input$chap == "ai" & input$cat == "ch") 
  htmlOutput("aich")
 

else if (input$chap == "ai" & input$cat == "pr") 
  htmlOutput("aipr")
  
)

选择时没有任何反应。关于此的任何想法

【问题讨论】:

【参考方案1】:

我们可以试试这个:

observe(
  
  if (input$chap == "ai" & input$cat == "ch") 
    output$example <- renderText("html_code_here")
   
  
  else if (input$chap == "ai" & input$cat == "pr") 
    output$example <- renderText("html_code_here")
  
)

另外,我认为observeEvent(c(input$chap, input$chap), ...) 可以工作。

根据提供的信息很难判断这是否可行,但我建立了一个示例。

library(shiny)

ui <- fluidPage(
  sidebarLayout(
  sidebarPanel(textInput(inputId = 'chap','input 1',placeholder = 'ai'),
               textInput(inputId = 'cat', 'input 2',placeholder = 'ch')),
  mainPanel(htmlOutput('example')))
  
)

server <- function(input, output, session) 
  observe(
    req(input$chap)
    
    if (input$chap == "ai" & input$cat == "ch") 
      output$example <- renderText("<h1>This is the H1</h1>")
     
    
    else  if (input$chap == "ai" & input$cat == "pr") 
      output$example <- renderText("aipr")
    
      
  )


shinyApp(ui, server)

【讨论】:

根据 selectOneMenu 值有条件地渲染组件

】根据selectOneMenu值有条件地渲染组件【英文标题】:ConditionallyrenderacomponentbasedonselectOneMenuvalue【发布时间】:2012-11-0709:41:52【问题描述】:有没有办法根据用户从selectOneMenu组件中选择的当前值来呈现组件?我的selectOneMenu组件填... 查看详情

根据 selectOneMenu 值有条件地渲染组件

】根据selectOneMenu值有条件地渲染组件【英文标题】:ConditionallyrenderacomponentbasedonselectOneMenuvalue【发布时间】:2021-07-0722:08:24【问题描述】:有没有办法根据用户从selectOneMenu组件中选择的当前值来呈现组件?我的selectOneMenu组件填... 查看详情

根据 selectOneMenu 值有条件地渲染组件

】根据selectOneMenu值有条件地渲染组件【英文标题】:ConditionallyrenderacomponentbasedonselectOneMenuvalue【发布时间】:2017-02-2208:34:14【问题描述】:有没有办法根据用户从selectOneMenu组件中选择的当前值来呈现组件?我的selectOneMenu组件填... 查看详情

如何根据 Shiny R 中的用户选择在 MainPanel 中显示数据?

】如何根据ShinyR中的用户选择在MainPanel中显示数据?【英文标题】:HowtodisplaydatainMainPanelbasedonuserselectioninShinyR?【发布时间】:2019-11-2906:21:01【问题描述】:我的数据框如下所示,我想构建ShinyApp,这样当用户从SidebarPanel中选择... 查看详情

R Shiny app - 渲染数据表条件

...始starwars数据集(可从dplyr库中获得)。在当前场景下,用户必须先点击RunQuery才能弹出数据,然后可以进入过滤器,进行相应的过滤,再次点击RunQuery才能显示结果。理想的 查看详情

如何根据用户的操作系统有条件地渲染 ReactJS 内容

】如何根据用户的操作系统有条件地渲染ReactJS内容【英文标题】:HowtoconditionallyrenderReactJScontentbasedofuser\'sOperationSystem【发布时间】:2018-08-0800:59:35【问题描述】:我正在寻找一种解决方案,以根据用户的操作系统有条件地呈现R... 查看详情

根据文件选择保存和加载用户选择 - R Shiny

】根据文件选择保存和加载用户选择-RShiny【英文标题】:SaveandLoaduserselectionsbasedonfileselection-RShiny【发布时间】:2019-04-0115:53:59【问题描述】:我正在尝试创建一个简单的应用程序,它充当GUI来研究具有相同变量但具有不同版本... 查看详情

关闭时,有条件地在图例中错误地渲染段中的段

...有一个函数可以生成一个绘图,用户可以在其中指定是否根据分组变量为线段着色:##librarieslibrary(tidyverse)library(plotly 查看详情

在 r shiny 中组合两个选择框值

...合两个选择框值。选择框1有年份,选择框2有月份。如果用户选择2018和06,我应该将2018-06放入变量中。我尝试了paste(input$year,input$month,sep="-")但它不起作用。【问题讨论】 查看详情

有条件地在 Shiny 中输出不同颜色的文本

...y【发布时间】:2016-01-2716:19:12【问题描述】:我希望Shiny根据矢量的大小打印出一些不同颜色的文本。我在想这样的事情:output$some_text<-renderText(if(length(some_vec)<20)paste("Thisisredtex 查看详情

根据功能组件中的数据有条件地渲染元素

】根据功能组件中的数据有条件地渲染元素【英文标题】:Conditionallyrenderelementsbasedondatainfunctionalcomponent【发布时间】:2020-04-2708:36:08【问题描述】:我的React应用程序中有一个功能组件,它进行API调用并返回包含两种联系方式Ph... 查看详情

R-Shiny 中的 circlepackeR - 根据用户输入创建圆形包装图

】R-Shiny中的circlepackeR-根据用户输入创建圆形包装图【英文标题】:circlepackeRinR-Shiny-createcirclepackinggraphbasedonuserinputs【发布时间】:2020-11-1314:42:12【问题描述】:我正在尝试根据用户输入制作circlepackeR图表。我想知道在我正在使... 查看详情

试图在 R Shiny 中动态渲染 ggmap 图但只接收空白图像

...的一部分,我想动态渲染一个ggmapstemen地图。因此,我向用户询问Openstreetmap导出数据( 查看详情

在 R Shiny 中,如何反应性地链接一系列可扩展的用户输入矩阵?

】在RShiny中,如何反应性地链接一系列可扩展的用户输入矩阵?【英文标题】:InRShiny,howtoreactivelylinkaseriesofexpandableuserinputmatrices?【发布时间】:2021-12-2014:16:27【问题描述】:在以下缩短的代码中,用户输入被“链接”在一系列3... 查看详情

r:在 Flexdashboard 中使用 Shiny 渲染 Kable

】r:在Flexdashboard中使用Shiny渲染Kable【英文标题】:r:RenderingKablewithShinyinFlexdashboard【发布时间】:2019-03-0700:38:34【问题描述】:有没有办法使用render__函数在Flexdashboard中使用Shiny渲染Kable(knitr::)?我正在查找有关一般Shiny-Kable渲... 查看详情

在 Shiny 的反应函数中使用 dplyr 条件过滤器

...一个交互式小部件,用户可以使用它来选择状态,并且将根据所选状态显示数据。不过,我还想提供显示所有内容的选项,这是我称之为“全部”的状态。我知道如何在没有 查看详情

条件渲染 - 根据用户选择显示 div

】条件渲染-根据用户选择显示div【英文标题】:Conditionalrendering-showdivbasedonuserselect【发布时间】:2020-06-1211:51:17【问题描述】:我有一个选择下拉菜单,并希望使用该值来决定是否通过v-if显示div。<selectclass="custom-selectcustom-sel... 查看详情

如何在 R Shiny 中对数据帧进行条件格式设置?

】如何在RShiny中对数据帧进行条件格式设置?【英文标题】:HowtohaveconditionalformattingofdataframesinRShiny?【发布时间】:2014-05-1601:04:34【问题描述】:使用Excel,您可以轻松地对单元格应用条件格式:你有没有机会用Shiny做这样的事... 查看详情