如何使用 Javascript 在 Shiny 中隐藏操作按钮
How can I hide an actionbutton in Shiny using Javascript
说到闪亮,我是个菜鸟。
在我的应用程序中,我需要在单击按钮时隐藏它,在这里我引入了 JS 来获得这种效果,但是我无法获得它,因为当我 运行应用
以下是我使用的代码
ui.R
shinyUI( fluidPage(
titlePanel("Conditional panels"),
column(3, wellPanel(
a<-actionButton("action", label="Action"),
br(),
br()
)),
column(4,
"This will show the button",
"when we click action.",
conditionalPanel("input.action > 0",
a1<- actionButton("show1", label="Show_1"), a2<-actionButton("show2", label="Show_2"), tags$script('document.getElementById("action").style.visibility="hidden";'))
)
))
有点混乱。
除了我可以探索的 conditionalPanel 之外,还有其他方法吗?
我是否还需要在 server.R
中进行额外配置
请帮忙。
您可以添加一些 javascript,当您单击它时会隐藏该按钮。
让其余的 UI 保持不变,您可以使用:
column(3, wellPanel(
a<-actionButton("action", label="Action"),
tags$script(HTML('document.getElementById("action").onclick = function(){$(this).hide() }')),
br(),
br()
))
jQuery 函数 hide
将在按钮被点击后被调用。
说到闪亮,我是个菜鸟。 在我的应用程序中,我需要在单击按钮时隐藏它,在这里我引入了 JS 来获得这种效果,但是我无法获得它,因为当我 运行应用
以下是我使用的代码
ui.R
shinyUI( fluidPage(
titlePanel("Conditional panels"),
column(3, wellPanel(
a<-actionButton("action", label="Action"),
br(),
br()
)),
column(4,
"This will show the button",
"when we click action.",
conditionalPanel("input.action > 0",
a1<- actionButton("show1", label="Show_1"), a2<-actionButton("show2", label="Show_2"), tags$script('document.getElementById("action").style.visibility="hidden";'))
)
))
有点混乱。 除了我可以探索的 conditionalPanel 之外,还有其他方法吗? 我是否还需要在 server.R
中进行额外配置请帮忙。
您可以添加一些 javascript,当您单击它时会隐藏该按钮。
让其余的 UI 保持不变,您可以使用:
column(3, wellPanel(
a<-actionButton("action", label="Action"),
tags$script(HTML('document.getElementById("action").onclick = function(){$(this).hide() }')),
br(),
br()
))
jQuery 函数 hide
将在按钮被点击后被调用。