shinydashboard

Increasing the height of the DateRangeInput and alignment in R shiny

由 坚强是说给别人听的谎言 提交于 2019-12-14 04:03:35
问题 I need the following requirement with the R script below. When you click on the sidebar symbol at the top, when dashboard body expands, all widgets are in one line, however when the dashboard body shrinks, the dateRangeInput widget appears in the below line. I want all widgets to appear in one line and resize accordingly. Please help and thanks. ## app.R ## library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar(), dashboardBody( box(title = "Data",

How to update UI on file change

由 送分小仙女□ 提交于 2019-12-14 03:34:58
问题 Hello I'm building a shinydashboard using several excel files. I inserted links to these files in the footer of the box and I want to refresh the shinydashboard when changing something in my excel file. I don't want to run the whole R code each time. How can I re-render the Output once the file content changes? Here an example: sidebar <- dashboardSidebar( sidebarMenu( menuItem("Hello", tabName = "Hello", icon = icon("dashboard")) )) body <- dashboardBody( tabItems( tabItem(tabName = "Hello",

Shiny: multiple selectizeInput, one choice vector, discrete choices?

由 旧巷老猫 提交于 2019-12-14 02:07:31
问题 new to shiny. Hoping someone can help me out. I have several selectizeInput's drawing choices from the same vector. My goal is to have values NOT show up in other Inputs after they have been chosen. ie. If value 1 has been chosen in Input 2, it should not be available in Input 1, 3 or 4. ui<- shinyUI(fluidPage( titlePanel("Selectize Test"), sidebarPanel( selectizeInput( "groupoptions1", "Group 1", choices = NULL, multiple = TRUE ), selectizeInput( "groupoptions2", "Group 2", choices = NULL,

Updating multiple infobox using plotly_click in R and plotly

由 天大地大妈咪最大 提交于 2019-12-13 20:16:26
问题 If you please run the script, it gives you a basic Sankey Chart in R and plotly and a data table besides. Also, there are three infoBoxes on top. When I click on the Sankey lines in the plot, I see the value in the data table using plotly_click. I want a functionality when I click on any Sankey Line, it picks "pointNumber" Column value in the data table and then multiplies by 2 and put in first infobox, by 3 in second infobox, and multiply by 4 in third infobox as in the snap attached. Thanks

Make the first element of a selectInput in R shiny appear bold

由 自作多情 提交于 2019-12-13 18:13:36
问题 I wish to make the first element "1" of the selectInput bold in color. Please help. ui <- fluidPage( selectInput( "select", label = h3("Select box"), choices = c(1,2,3,4) )) server <- function(input, output) { } shinyApp(ui = ui, server = server) 回答1: You can add the style as suggested by @Nitin Shinde in your shiny app like this: ui <- fluidPage( tags$head(tags$style(".option:first-child{ font-weight:bold; //color:#ff0000; }")), selectInput( "select", label = h3("Select box"), choices = c(1

Using shiny modules and shinydashboard: shiny.tag error

由 好久不见. 提交于 2019-12-13 12:17:38
问题 I'm trying to create and use shiny modules inside a shinydashboard app but I keep getting this error: Error in FUN(X[[i]], ...) : Expected an object with class 'shiny.tag'. Here is the app as condensed as possible: ui.r library(shiny) library(shinydashboard) source("modules.r") ui <- dashboardPage( dashboardHeader( title = "Shiny modules and shinydashboard" ), dashboardSidebar( sidebarMenu( menuItem("PointA") ) ), dashboardBody( tabItems( fooUI("myid") ) ) ) server.r server <- function(input,

Css attribute to access a specific selectInput and make the initial element bold

由 感情迁移 提交于 2019-12-13 08:39:19
问题 the given html script creates three selectInputs and updates the first element of all the three selectInputs black and bold. I just want to make the change to the third selectInput Box and not the other two. Please help me with an appropriate css attribute to achieve this. <!DOCTYPE html> <html> <body> <style> option:first-child{ font-weight:bold; color:#000000; } </style> <select> <option value="volvo">Volvo</option> <option value="saab">Saab</option> </select> <select> <option value="a1"

SelectInput Value update based on previous SelectInput in R shiny

由 旧街凉风 提交于 2019-12-13 03:39:59
问题 The R shiny script below creates three selectInputs such that the values of each selectInput depend upon the input value of the previous selectInput. E.g. in the data in the script, "value" column values depend on "Candy" column and "Candy" column values depend on the "Brand". The issue is that, whether I select "Mars" or "Netle" value in the "Brand" column, The corresponding "Candy" value "100Grand" is same for both, hence I do not see a change in the value column as the selectInput is

R: more flexible annotations in dygraphs + shiny

由 帅比萌擦擦* 提交于 2019-12-13 03:02:21
问题 I'm using dygraphs in my Shiny app to visualise quite complex time-series. I want to be able to: 1) plot multiple annotations with two labels@ 'buy' and 'sell'. ideally using icons and/or different colours and 2) control which time-series it's going to be plotted on. Re point 1, I found this SO answer, which works, but it is rather clunky. Is there a better (more tidy) way of achieving the same effect? Re point 2, see code below - how could I plot annotations on Y time-series, instead?

Write editable shiny Datatable to .csv file

由 主宰稳场 提交于 2019-12-13 02:55:40
问题 I'm writing a shiny app that loads a list of names and dates and displays them in a datatable. I want to use the editable functionality of datatables to allow the user to update one of the dates, click a save button and overwrite the original data with the updated data. This is what I have so far; library(shiny) library(shinydashboard) library(tidyverse) library(DT) users <- reactiveFileReader( intervalMillis = 100000, NULL, filePath = 'appData/userTest.csv', readFunc = read.csv,
订阅 shinydashboard