Shiny

问题 I am trying to create this dashboard with following structure. It basic structure has 3 levels (Menu, sub Menu and radioGroupButton selection) SideBar: Menu1: has 2 sub menus (Sub Menu 1 and Sub Menu2) Menu2 has 2 sub menus (Sub Menu 3 and Sub Menu4) The body has radioGroupButton that has 2 choices dashBoardBody: RadioGroupButton: Choice 1 and Choice 2 So when the user clicks Sub Menu1 and clicks Choice 1 then I need to display #A1 Sub Menu1 and clicks Choice 2 then I need to display #A2 Sub

问题 I am trying to create this dashboard with following structure. It basic structure has 3 levels (Menu, sub Menu and radioGroupButton selection) SideBar: Menu1: has 2 sub menus (Sub Menu 1 and Sub Menu2) Menu2 has 2 sub menus (Sub Menu 3 and Sub Menu4) The body has radioGroupButton that has 2 choices dashBoardBody: RadioGroupButton: Choice 1 and Choice 2 So when the user clicks Sub Menu1 and clicks Choice 1 then I need to display #A1 Sub Menu1 and clicks Choice 2 then I need to display #A2 Sub

问题 Goal To have select dropdown in DT datatables not at the building of the datatable but built on cell click, with replaceData() and with the datas on RDBMS (SQL Server). When I click on the selected option of the , for example Ohio I want to set my data (and the RDBMS) with the id 2 . The issue With replaceData() the events of select are unbinded. It strange because only the cells where I've clicked are unbinded. the selected page is lost Update of StateId works (but I cannot click again on if

问题 I am currently trying to limit my selection in a DataTable in Shiny to just two rows - I want the table to not allow the user to click on more than rows (but also to have the ability to deselect them afterwards). library(DT) shinyApp( ui = fluidPage( fluidRow( column(12, dataTableOutput('table') ) ) ), server = function(input, output) { output$table <- DT::renderDataTable(iris, options = list(selection = "multiple") ) } ) The row selection is currently on multiple mode, which works, but I don

问题 Suppose I have the following Shiny ui code: fluidRow( column( width=4 ), column( width=8 ) ) How can I draw the right border of the first column? 回答1: You can add CSS to the column using the style argument. So one way to do this would be: library(shiny) ui <- fluidPage( fluidRow( column(style='border-right: 1px solid red', width=4, p('Hello') ), column( width=8, p('World') ) ) ) server <- function(input,output) {} shinyApp(ui,server) Hope this helps! 回答2: Another way to approach this is to

问题 Following on from this example can someone please tell me if it's possible and how to change the colour of the font of the items in the drop down menu of the pickerInput UI from the shinyWidgets package? Here is a short example of the widget: library("shiny") library("shinyWidgets") shinyApp( ui = shinyUI(fluidPage( sidebarLayout( sidebarPanel( pickerInput("select", label=NULL, choices=LETTERS, selected = LETTERS, multiple=TRUE, options = list( `actions-box` = TRUE, size = 10, `selected-text

问题 I am trying to make a shiny app based on New York crime historical data. I am using single shiny page approach. Here's the data: https://data.world/data-society/nyc-crime-data For some reason when I select the year to output the crime statistics, my output gets outputted only in the Viewer of RStudio and not on the main panel of the Shiny popup. Here's the complete code: # Shiny App exploring New York City Crime Data between 2006-2016 # Data Source: https://data.world/data-society/nyc-crime

问题 I have a shiny app (using navbarPage) with many tabs and would like to add a sidebarMenu that can be seen no matter which tab is selected. The input values in the sidebar have an impact on the content of all tabs. Additionally, it should be possible to hide the sidebarMenu as it is in a shinydashboard. I see two possible ways: (A) Using shinydashboard and somehow adding a top navigation bar or (B) using navbarPage and somehow adding a sidebar menu that can be hidden. (A) Using shinydashboard

问题 I have a shiny app (using navbarPage) with many tabs and would like to add a sidebarMenu that can be seen no matter which tab is selected. The input values in the sidebar have an impact on the content of all tabs. Additionally, it should be possible to hide the sidebarMenu as it is in a shinydashboard. I see two possible ways: (A) Using shinydashboard and somehow adding a top navigation bar or (B) using navbarPage and somehow adding a sidebar menu that can be hidden. (A) Using shinydashboard

问题 I am having trouble recreating this answer in R with Highcharter to make my lines in a line series chart clickable URLs. Someone has already asked a similar question and they received an answer that was very helpful. However, I am having an issue with implementing that answer. They were able to use this.options.key because they were able to assign a column to key. I can't figure out how to assign one of the columns of my dataframe to key. I have imported my data from a csv file; my first few