shinydashboard

r shiny - uiOutput not rendering inside menuItem

拜拜、爱过 提交于 2019-12-02 03:13:34
Question Why does a sliderInput() that's generated on the server , and rendered on the ui with uiOutput() not get displayed in a menuItem() ? Example In this simple app I'm generating a sliderInput on the server (note the menuItem is deliberately commented out), and it works as expected library(shiny) library(shinydashboard) rm(ui, server) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu( #menuItem(text = "data options", checkboxGroupInput(inputId = "cbg_group1", label = "group 1", choices = c("some","check","boxes","to","choose","from") ), uiOutput("sli_val1"),

plotly graph doesn't show up

泪湿孤枕 提交于 2019-12-02 01:55:32
问题 I'm using shiny and I can't get a plotly graph to appear. It was appearing before, I don't know what changed. MRE: global.r (or put this into server.r) library(shinydashboard) library(plotly) server.r shinyServer(function(input, output, session) { output$plotlyGraph <- renderPlotly({ input$regraph print("graphing...") return(plot_ly(list(blank = 0))) }) }) ui.r dashboardPage( dashboardHeader(title = "The Title"), dashboardSidebar( actionButton("regraph", "graph again") ), dashboardBody( box

HTML page inside Shiny dashboard

纵饮孤独 提交于 2019-12-01 12:38:42
My question is simple for some but difficult for others (like me). I have a Shiny Dashboard in wich I want to add an html page inside a menuItem (Se connecter) to log in Otherwise if you have any suggestions to do so using Shiny I'll be pleased PS : I have a web service to log in so all I want is ideas to have a good looking, stylish login page or panel Maybe you can iframe it into your dashboard? rm(list = ls()) library(shiny) ui <- fluidPage(titlePanel("Some Iframe"), mainPanel(fluidRow( tags$iframe(seamless="seamless",src="http://www.investing.com/quotes/streaming-forex-rates-%E2%80%93

How to include a remote JavaScript file in a shiny dashboard app?

这一生的挚爱 提交于 2019-12-01 09:21:36
How can I include a remote JS file in my app using shinydashboard? I know there is the includeScript function. I tried ... # using shiny dashboard ui <- dashboardPage( includeScript("http://the.path.to/my/js-file.js") dashboardHeader( title = "My title", titleWidth = 400 ), ... This results in the error: Error in tagAssert(header, type = "header", class = "main-header") : Expected tag to be of type header I attempted to place the call in other places, combine it with tags$head , store the JS file locally and load it with a local path reference, but to no avail. So I am stuck at the following

How to create On load Event or default event in shiny?

拟墨画扇 提交于 2019-12-01 08:27:41
I am new to shiny as well as stackoverflow and looking for some help with a problem that I am currently stuck at. I am trying to build a shiny app which collects some inputs from the user and creates visualization based on inputs on click of a button. Currently, that works fine, but one of the major ask is that, when the app loads for the first time, it shall have visualization prepared based on the default inputs. I am pasting a sample code, which can explain the issue I am facing: UI.R #loading shiny library(shiny) ui<-shinyUI(fluidPage( titlePanel("Iris Dataset"), sidebarLayout(

shiny dashboard mainpanel height issue

我们两清 提交于 2019-12-01 07:31:46
This is an extension of my previous question . Now I am not able to extend the height of my main panel. This is my code below library(shiny) library(shinydashboard) library(shinyBS) library(DT) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarPanel( textInput("text", "Enter Id:"), box(width = 1, background = 'purple'), actionButton("Ok", "Press Ok",style='padding:8px; font-size:100%') ) ), dashboardBody( mainPanel(width = 12, tabsetPanel( tabPanel("About", value=1, h6("The objective is to test width of ShinyApp in tabPanel design", br(), br(), "Distribution Prototype" ) ),

R shinydashboard: display progress bar while loading data (fread)

删除回忆录丶 提交于 2019-12-01 06:10:14
I'm creating a R shinydashboard with a big database that takes a while to load. Is it possible to create a progress bar that displays the information of the amount of data that has been read? (e.g., "Read X% of Z rows")? R cannot tell you how many rows are in your data until the initial load is complete (I think). However, you can use the built in Shiny progress bar to give your users a message that the data is loading: x<-list.files() data<-data.frame() withProgress(message = 'Reading Data!', value = 0, { for(i in 1:length(x)){ incProgress(1/length(x), detail = paste("File #", i)) hold<-read

How to include a remote JavaScript file in a shiny dashboard app?

走远了吗. 提交于 2019-12-01 05:57:14
问题 How can I include a remote JS file in my app using shinydashboard? I know there is the includeScript function. I tried ... # using shiny dashboard ui <- dashboardPage( includeScript("http://the.path.to/my/js-file.js") dashboardHeader( title = "My title", titleWidth = 400 ), ... This results in the error: Error in tagAssert(header, type = "header", class = "main-header") : Expected tag to be of type header I attempted to place the call in other places, combine it with tags$head , store the JS

How to create On load Event or default event in shiny?

送分小仙女□ 提交于 2019-12-01 05:35:26
问题 I am new to shiny as well as stackoverflow and looking for some help with a problem that I am currently stuck at. I am trying to build a shiny app which collects some inputs from the user and creates visualization based on inputs on click of a button. Currently, that works fine, but one of the major ask is that, when the app loads for the first time, it shall have visualization prepared based on the default inputs. I am pasting a sample code, which can explain the issue I am facing: UI.R

Hide an element (box/tabs) in shiny dashboard

点点圈 提交于 2019-12-01 00:29:47
I have a shiny dashboard which has a just a single text box on the landing page. The user enters an emailid which displays relevant data. This works fine. However I need a box/ tab Panel that greets the user on reaching the page and disappears when the user begins to enter text(emailid) in the text input. Is this possible? output$introbox=renderUI(box(h3("Welcome to the page. Please enter your email id to proceed")), conditionalPanel(condition=input.emailid=="") The box is displayed on landing on the page but doesn't disappear on entering text. Appreciate any help. Thanks Oskar's answer is