如何在Shiny中更改搜索按钮？

在Shiny中更改搜索按钮的方法是通过自定义CSS样式来实现。以下是具体步骤：

在Shiny应用程序的UI部分，添加一个tags$style标签，用于定义自定义CSS样式。例如：

ui <- fluidPage(
  tags$style(HTML("
    .my-search-button {
      /* 自定义样式 */
    }
  ")),
  
  # 其他UI组件
)

在UI部分的搜索按钮中，为其添加一个自定义的CSS类名，例如my-search-button：

ui <- fluidPage(
  tags$style(HTML("
    .my-search-button {
      /* 自定义样式 */
    }
  ")),
  
  actionButton("searchButton", "搜索", class = "my-search-button"),
  
  # 其他UI组件
)

在自定义CSS样式中，根据需要修改搜索按钮的外观。可以使用CSS属性来更改按钮的背景颜色、字体样式、边框样式等。例如：

ui <- fluidPage(
  tags$style(HTML("
    .my-search-button {
      background-color: #007bff;
      color: #fff;
      border: none;
      padding: 10px 20px;
      font-size: 16px;
      /* 其他样式属性 */
    }
  ")),
  
  actionButton("searchButton", "搜索", class = "my-search-button"),
  
  # 其他UI组件
)

如果需要进一步定制搜索按钮的交互行为，可以使用Shiny的JavaScript函数来实现。例如，可以使用shinyjs包中的函数来在按钮点击时执行自定义的JavaScript代码。具体步骤如下：

在UI部分引入shinyjs包，并使用useShinyjs()函数初始化。
在服务器端使用shinyjs::runjs()函数来定义自定义的JavaScript代码。

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  
  tags$style(HTML("
    .my-search-button {
      background-color: #007bff;
      color: #fff;
      border: none;
      padding: 10px 20px;
      font-size: 16px;
      /* 其他样式属性 */
    }
  ")),
  
  actionButton("searchButton", "搜索", class = "my-search-button"),
  
  # 其他UI组件
)

server <- function(input, output) {
  observeEvent(input$searchButton, {
    # 执行自定义的JavaScript代码
    shinyjs::runjs("
      // 自定义的JavaScript代码
    ")
  })
}

shinyApp(ui, server)

通过以上步骤，你可以在Shiny应用程序中更改搜索按钮的外观和交互行为。请根据具体需求进行自定义修改。

为什么renderUI不能在自定义模式下工作？

r、shiny

我有一个闪亮的应用程序，当我点击一个按钮时，它会显示一个模式。我不能使用shiny::modalDialog()，所以我从W3schools改编了this example。它看起来是这样的： library(shiny) library(shinyjs) ui <- fluidPage( tags$head( tags$link(rel="stylesheet", href="https://www.w3schools.com/w3css/4/w3.css") ), useShinyjs(), actionButton(&#

浏览 24提问于2021-08-18得票数 1

回答已采纳

1回答

如何停止播放R中的声音

javascript、r、shiny、shinyjs

当播放一个声音，我想有可能用另一个按钮停止这一点。或者当再次按下播放按钮时，声音的播放应该停止，然后从一开始就播放。我很难用shinyjs在R闪亮中实现这一点，但没有成功。这是我的密码： library(shiny) library(shinyjs) ui <- fluidPage( useShinyjs(), shiny::actionButton('sound' ,'Play sound'), shiny::actionButton('stopper','Stop sound') ) server

浏览 4提问于2022-11-24得票数 1

回答已采纳

1回答

除非单击同一div中的另一个按钮，否则闪亮的按钮将保持活动状态

javascript、css、r、shiny

下面这款闪亮的应用程序有3个按钮(不活动时为蓝色)。当一个按钮被点击(激活)时，它应该会变成红色，直到另一个按钮被点击。如果用户单击应用程序中的其他地方(例如，背景或按钮以外的任何其他小部件)，则单击的按钮应保持红色。 library(shiny) library(shinyjs) ui <- fluidPage( useShinyjs(), # CSS tags$head( tags$style(HTML(" .btn{ color: white;

浏览 18提问于2021-08-25得票数 0

回答已采纳

2回答

发亮:如何在单击按钮时更改按钮的背景色

css、r、shiny

我试图改变一个按钮的颜色使用css在R发亮。默认的引导样式似乎是在按下按钮时将其染成灰色(即在单击期间)，但我希望它是绿色的。我相信这是用:active伪类选择器完成的，但是它不起作用:按钮在被压时仍然是淡灰色的，但是按钮的石灰颜色确实有效。 ui.R ui <- fluidPage( theme = "style.css", actionButton("my-button", "Click me") ) style.css .btn, .btn:hover { background-color:

浏览 5提问于2020-05-26得票数 1

1回答

无法将JavaScript代码插入R shiny.semantic应用程序

javascript、r、shiny

我在向一个闪亮的应用程序中插入javascript代码时遇到了问题(单击/取消单击All框应该选中/取消选中所有框)。 app.R library(shiny.semantic) ui <- semanticPage( multiple_checkbox(input_id = "myCheckbox", label = NULL, choices = c("All", "A", "B"),

浏览 1提问于2021-07-21得票数 0

回答已采纳

3回答

如何防止用户在应用繁忙时在闪亮的应用上做任何事情

r、shiny

我有一个复杂的闪亮的应用程序与许多输入，传单地图等…我的问题是，当应用程序忙于进行一些计算时，用户会继续点击应用程序上的任何位置，有时应用程序会崩溃。我想防止用户在应用程序繁忙时进行任何点击。重要的是，微调器是一个微调器，而不是像waiter包中那样的整页服务生。也许有一种可能性将旋转和服务生结合在一起？但我还不知道该怎么做。我这里有一个小技巧:当我点击一个按钮“忙碌的应用”时，有一个5秒的旋转器让用户等待。但是在这段时间内，用户仍然可以点击“增量”按钮。在微调器的末尾，输出会随着点击次数的增加而增加。我想一次阻止用户看到整个应用程序，而不是在应用程序繁忙时将按钮设置为“禁用”(因为我的

浏览 35提问于2021-07-20得票数 3

回答已采纳

1回答

在图像单击时触发Javascript事件处理程序

javascript、r、events、shiny

当我在Shiny中单击一个图像时，我想触发一个JS事件处理程序。该处理程序使用shiny:inputchanged (请参阅)并适用于按钮。imageOutput可能不是输入，那么当我单击它时，如何创建事件呢？ library(shiny) ui <- fluidPage( tags$script(HTML( "$(document).on('shiny:inputchanged', function(event) { alert(event.name);})" )), titlePanel("Click on image

浏览 0提问于2021-06-15得票数 1

1回答

闪亮的jquery UI

javascript、r、jquery-ui、shiny

我想使用带有shiny的jquery UI (不使用shinyjqui库)。当我有一个层并试图使用jqueryUI移动它时，它工作得很好，但是当这个层是使用insertUI动态生成的时候，它就不起作用了。代码如下： library(shiny) ui <- fluidPage(theme = "style.css", tags$script(src = "jquery-ui.js"), tags$script(src = "script2.js"), action

浏览 9提问于2018-12-27得票数 2

回答已采纳

1回答

为默认呈现方法呈现输出时运行javascript代码(类似于小部件的onRender )

javascript、r、shiny、htmlwidgets

在闪亮的应用程序中，我们可以添加javascript代码，以便在小部件使用onRender从library(htmlwidgets)呈现时运行。对于默认的render*函数，似乎也不起作用。对于这些呈现功能，是否有实现类似功能的方法？下面的应用程序显示了每次呈现小部件和传单时都会发出警告，但对于renderUI和renderPlot则不是。 library(shiny) library(plotly) library(leaflet) library(htmlwidgets) ui <- fluidPage( actionButton('a1','a1&#

浏览 4提问于2022-01-21得票数 1

回答已采纳

2回答

R闪亮应用程序中的访问Javascript变量

r、shiny、shinyjs

我想知道是否可以在我的R代码中使用在runjs()中创建的变量。例如，为了进一步分析，我将能够访问today_var函数之外的变量runjs()。 if (interactive()) { library(shiny) shinyApp( ui = fluidPage( useShinyjs(), actionButton("btn", "Click me") ), server = function(input, output) { observeEvent(input$btn, {

浏览 0提问于2018-06-08得票数 5

回答已采纳

1回答

R中的字符串交互网络

javascript、html、r、string、shiny

问题陈述：我正尝试使用R将交互式字符串网络加载到一个闪亮的网站中我尝试了什么:根据，我可以嵌入交互式网络，但是我需要一些元素： Javascript libary 嵌入div项调用参数为TP53 getSTRING的特定蛋白质(‘，{'ncbiTaxonId':'9606'，’标识符‘：’the 53‘，’网络_风味‘：’置信度‘})。从理论上讲，所产生的网络应该被定位到<div id="stringEmbedded"></div>放置的地方。所以我这么做是为了： library(shiny)

浏览 3提问于2020-03-02得票数 0

回答已采纳

1回答

在应用程序下面的展示模式下启动闪亮的应用程序

r、shiny

我有一个闪亮的应用程序，它有一个像这样的DESCRIPTION文件 Title: My app Author: Jon Hill AuthorUrl: https://ipardalis.com DisplayMode: Showcase Tags: R, Panther Chameleon, blog Type: Shiny 当它启动时，代码将显示在应用程序的旁边。然而，在点击“显示下面”之后，我喜欢它在应用程序下面的样子。有没有办法让应用程序以这种状态启动，而不是默认状态，因为默认状态显示应用程序的代码在右边？下面是一个基本的测试应用程序： ## app.R ## server <

浏览 0提问于2018-06-21得票数 1

回答已采纳

1回答

R闪亮:在服务器端使用活动按钮的Onclick选项

r、shiny、shinyjs

我想制作一个闪亮的应用程序，用户可以按一个an按钮，然后在服务器端触发一些代码，在www文件夹中创建一个文件，然后打开/下载该文件。假设文件是test.txt (在我的例子中，它将是各种R、Excel和exe文件，这些文件将从驱动器上的不同文件夹复制到www文件夹)。我的第一次尝试是使用option按钮和onclick选项，如下所示 ui <- fluidPage( actionButton("showtxt", "Show/Download File", onclick = "window.open('test.t

浏览 0提问于2017-08-25得票数 10

回答已采纳

1回答

禁用confirmSweetAlert中的确认按钮

r、shiny、sweetalert2、shinyjs、shinywidgets

我试图在confirmSweetAlert中禁用确认按钮，除非selectizeInput中有一些输入。使用Javascript似乎有一些解决方案，比如swal.disableConfirmButton()和document.getElementsByClassName().disabled = true，但是当我在shinyjs::runjs下运行它们时，这些解决方案似乎不起作用。有没有解决这个问题的办法？下面是我的示例代码： shinyApp( ui <- fluidPage( actionButton("button", "Show Sweet

浏览 2提问于2020-05-12得票数 1

回答已采纳

1回答

在shinyjs::toggleState中使用JQuery选择器禁用动态创建的按钮

jquery、r、shiny、shinyjs

下面的应用程序包含一个模块，每次单击Add按钮时都会插入一个UI对象。该对象由一个selectInput和一个Remove按钮组成，该按钮移除UI对象：如果DOM中只剩下一个Remove按钮，我想禁用它。为此，我跟踪使用计数器rv$ct插入了多少输入，以及在rv$rmvd中删除了多少输入。我设置了一个观察者，它侦听rv$ct和length(rv$rmvd)之间差异的值，并在该观察者中使用shinyjs::toggleState来启用如果差异大于1的Remove按钮。该应用程序如下： library(shiny) library(shinyjs) # module UI ---

浏览 0提问于2019-06-07得票数 2

回答已采纳

2回答

用shinyjs改变shinydashboard盒的样式

r、shiny、shinydashboard、shinyjs、shinywidgets

我正试图根据用户所在的选项卡更改shinydashboard框的颜色。为此，我将从tabsetPanel获取输入值，并尝试使用shinyjs更改box-header类的css。不幸的是，我的试验都没有成功。下面是一个可复制的示例(颜色还不适合选项卡，但我将在第二部分中这样做) library(shiny) ui <- fluidPage( shinyWidgets::useShinydashboard(), tabsetPanel( id = "mytab", tabPanel("First", shiny

浏览 0提问于2021-03-16得票数 0

回答已采纳

2回答

观察事件以在Shiny中隐藏操作按钮

r、shiny

在我闪亮的应用程序中，我尝试包含根据ui.R中是否定义了另一个用户输入来显示或隐藏操作按钮的逻辑。我无法使用uiOutput/renderUI功能来执行此操作，因为应用程序中存在一些其他复杂性。我的方法是为输入创建一个观察者，然后相应地使用CSS标记显示或隐藏操作按钮。我不懂CSS，所以才会有这样的挣扎。这是我的应用程序中的ui表单- 现在，我有了一个反应式函数locationSpecified，它返回输入位置是否为空，并基于此显示或隐藏"RUN“按钮。下面是我是如何在ui.r中添加"RUN“按钮的。 fluidRow(column(6, align="

浏览 5提问于2016-08-05得票数 5

回答已采纳

2回答

R闪亮的可折叠侧栏

r、shiny、sidebar、collapsable

我已经在R shiny中创建了以下应用程序模板： library(shiny) library(shinyjs) ui <- fluidPage( useShinyjs(), navbarPage("",actionButton("toggleSidebar", "toggle", icon = icon("database")), tabPanel("tab", div( id ="Sidebar",sidebarPa

浏览 51提问于2019-07-02得票数 2

回答已采纳

1回答

在闪亮应用程序的服务器部分中创建的jQuery UI元素访问

javascript、jquery、r、shiny

当单击特定伪类元素时，我希望传递给它的闪亮ID。如果UI元素是在闪闪发亮的应用程序的UI中创建的，那么一切都很好。但是当在服务器端(通过renderUI)创建UI时，它不起作用。下面是可重复的例子。 library(shiny) library(shinyjs) ui <- fluidPage( useShinyjs(), fluidRow( tags$div(id = "ui1", class = 'shiny-html-output shiny-bound-output', tags$a(id = "ID1"

浏览 0提问于2018-04-19得票数 5

回答已采纳

2回答

无法使禁用按钮与ShinyR中的if语句一起使用observeEvent

r、button、shiny

我正在尝试做的是使用if语句来阻止“分析”按钮执行两次操作，我想在按钮已经在一个选择上单击一次时禁用该按钮。我简化了代码以隔离if语句区域。有人知道这是怎么回事吗？谢谢 library(shiny) library(shinyjs) ui <- fluidPage( navbarPage(title = "Test", tabPanel("Home", sidebarPanel( actionButton(

浏览 28提问于2021-02-18得票数 1

回答已采纳

扫码

添加站长进交流群

领取专属 10元无门槛券

手把手带您无忧上云

如何在Shiny中更改搜索按钮？

相关·内容

为什么renderUI不能在自定义模式下工作？

如何停止播放R中的声音

除非单击同一div中的另一个按钮，否则闪亮的按钮将保持活动状态

发亮:如何在单击按钮时更改按钮的背景色

无法将JavaScript代码插入R shiny.semantic应用程序

如何防止用户在应用繁忙时在闪亮的应用上做任何事情

在图像单击时触发Javascript事件处理程序

闪亮的jquery UI

为默认呈现方法呈现输出时运行javascript代码(类似于小部件的onRender )

R闪亮应用程序中的访问Javascript变量

R中的字符串交互网络

在应用程序下面的展示模式下启动闪亮的应用程序

R闪亮:在服务器端使用活动按钮的Onclick选项

禁用confirmSweetAlert中的确认按钮

在shinyjs::toggleState中使用JQuery选择器禁用动态创建的按钮

用shinyjs改变shinydashboard盒的样式

观察事件以在Shiny中隐藏操作按钮

R闪亮的可折叠侧栏

在闪亮应用程序的服务器部分中创建的jQuery UI元素访问

无法使禁用按钮与ShinyR中的if语句一起使用observeEvent

扫码

相关资讯

热门标签

活动推荐

运营活动

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐