shinybs

问题 I would like to find a resource that would allow my Shiny selectInput function to expand/collapse based on the category headings that I have created. I have searched through some bootstrap resources, but am not yet successful. Please forgive my minimal working example, I acknowledge that there may be more efficient ways to provide a MWE. Thanks for any advice you can offer. library(shiny) library(tidyverse) #create a quick dataset to plot schools <- as.data.frame(table( c('Adams', 'Van Buren'

问题 I would like to find a resource that would allow my Shiny selectInput function to expand/collapse based on the category headings that I have created. I have searched through some bootstrap resources, but am not yet successful. Please forgive my minimal working example, I acknowledge that there may be more efficient ways to provide a MWE. Thanks for any advice you can offer. library(shiny) library(tidyverse) #create a quick dataset to plot schools <- as.data.frame(table( c('Adams', 'Van Buren'

问题 I am trying to add some tooltips to different action buttons in my shiny app through the bsTooltip() function of the shinyBS package, and I would like to modify the width just of a specific tooltip box. To do that, I can specify the HTML tags at the beginning of my UI and modify directly the CSS, but if I use the simple element .tooltip {...} I modify the width of every tooltip in my code: Below you can find a minimal reproducible example with two different action buttons: library(shiny)

问题 I want to create a radioButtons widget with tooltip using shinyBS . What I want to achieve is to create one widget with 3 buttons with different info in tooltip . Based on this solution it was created 3 separate radio buttons with different id values. Is it possible to do the same thing but with one radio widget with 3 buttons (i.e. with one id value)? library(shiny) library(shinyBS) ui <- shinyUI( fluidPage( fluidRow( column(3, HTML("<div class='container'><br> <h1>Test</h1> <div> <label id=

问题 I want to create a radioButtons widget with tooltip using shinyBS . What I want to achieve is to create one widget with 3 buttons with different info in tooltip . Based on this solution it was created 3 separate radio buttons with different id values. Is it possible to do the same thing but with one radio widget with 3 buttons (i.e. with one id value)? library(shiny) library(shinyBS) ui <- shinyUI( fluidPage( fluidRow( column(3, HTML("<div class='container'><br> <h1>Test</h1> <div> <label id=

问题 I want to display a table of data in a pop-up window by clicking on valueBox . The valueBox itself should work as an actionButton . When I click on the valueBox it should render a table in pop-up window as in the picture below. Can anyone help on this code? My code: library(shiny) library(shinydashboard) data <- iris ui <- dashboardPage( dashboardHeader(title = "Telemedicine HP"), dashboardSidebar(), dashboardBody( fluidRow( valueBox( 60, subtitle = tags$p("Attended", style = "font-size: 200%

问题 I want to display a table of data in a pop-up window by clicking on valueBox . The valueBox itself should work as an actionButton . When I click on the valueBox it should render a table in pop-up window as in the picture below. Can anyone help on this code? My code: library(shiny) library(shinydashboard) data <- iris ui <- dashboardPage( dashboardHeader(title = "Telemedicine HP"), dashboardSidebar(), dashboardBody( fluidRow( valueBox( 60, subtitle = tags$p("Attended", style = "font-size: 200%

问题 The dynamic popover from shinyBS only turns up on every second selection. library(shiny) library(shinyBS) ui <- fluidPage( sidebarLayout( sidebarPanel( selectInput("poppy", "Think!", c("A", "B", "C", "D")), bsButton("dummy", "dummy")), ## required, dummy mainPanel( helpText("Note that when you select from the box, popover turns up every second time only!") ))) server <- function(input, output, session) { observe({ poppy = paste("You selected ", input$poppy) addPopover(session, "poppy", "Every

问题 I want to place a help text for check-box label as a tooltip. In the following example I use the shinyBS package - but I only get it to work for the title of the checkbox input group. Any ideas how it could work after the "Lernerfolg" or "Enthusiasmus" labels? library(shiny) library(shinyBS) server <- function(input, output) { output$distPlot <- renderPlot({ hist(rnorm(input$obs), col = 'darkgray', border = 'white') output$rendered <- renderUI({ checkboxGroupInput("qualdim", tags$span(

问题 I want to place a help text for check-box label as a tooltip. In the following example I use the shinyBS package - but I only get it to work for the title of the checkbox input group. Any ideas how it could work after the "Lernerfolg" or "Enthusiasmus" labels? library(shiny) library(shinyBS) server <- function(input, output) { output$distPlot <- renderPlot({ hist(rnorm(input$obs), col = 'darkgray', border = 'white') output$rendered <- renderUI({ checkboxGroupInput("qualdim", tags$span(