Displaying 19 results from an estimated 19 matches for "fluidpage".
2020 Nov 07
4
Data Table not rendering properly using R shiny
...egate(df3_machine_region$sum_as_hours~df3_machine_region$Region,df3_machine_region,max),c("Region","Sum_as_Hours"))
Region Sum_as_Hours
1 Africa 1156.0833
2 Americas 740.1667
3 APAC 740.2833
4 Europe 1895.2000
5 PDO 1053.3500
6 UK 0.0000
Rshiny code:
library(shiny)
ui <- fluidPage(
selectInput("Region","Select
Region",max_usage_hours_per_region$Region,selected = TRUE),
tableOutput("table")
)
server <- function(input, output) {
output$table <- renderTable(
max_usage_hours_per_region[input$Region,])
}
shinyApp(ui = ui, server = server)
[[a...
2020 Nov 07
4
Data Table not rendering properly using R shiny
...egate(df3_machine_region$sum_as_hours~df3_machine_region$Region,df3_machine_region,max),c("Region","Sum_as_Hours"))
Region Sum_as_Hours
1 Africa 1156.0833
2 Americas 740.1667
3 APAC 740.2833
4 Europe 1895.2000
5 PDO 1053.3500
6 UK 0.0000
Rshiny code:
library(shiny)
ui <- fluidPage(
selectInput("Region","Select
Region",max_usage_hours_per_region$Region,selected = TRUE),
tableOutput("table")
)
server <- function(input, output) {
output$table <- renderTable(
max_usage_hours_per_region[input$Region,])
}
shinyApp(ui = ui, server = server)
[[a...
2017 Oct 18
1
dygraphs, multiple graphs and shiny
...aphs in Shiny, you replace the normal render and plot routines, such that the following "works" in the sense when run the graph and slider are shown - this is showing just a single digraph:
> library(shiny)
>
> # Define UI for application that draws a histogram
> ui <- fluidPage(
>
> # Application title
> titlePanel("Test"),
>
> # Sidebar with a slider input for number of bins
> sidebarLayout(
> sidebarPanel(
> sliderInput("bins",
> "Number of bins:",
>...
2017 Sep 21
3
Add wrapper to Shiny in R package
...*Under R directory:*
myApp <- function(x, ...) {
require(shiny)
xs <- scale(x)
shiny::runApp(appDir = system.file("application", package =
"my_package"), ...)
}
*Under inst/application directory a file named app.R with the following
content:*
shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
mainPanel(plotOutput("hist"))
)
),
server = function(input, output) {
output$hist <- renderPlot(
hist(xs, breaks = input$n,
col = "skyblue", bo...
2017 Sep 21
1
Add wrapper to Shiny in R package
...:
Error in get("xs", envir = my.env) : object 'my.env' not found.
library(shiny)
library(shinydashboard)
myApp <- function(x, ...) {
xs <- scale(x)
my.env <- new.env()
assign("xs", xs, envir = my.env)
shiny::runApp(app)
}
app = shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
mainPanel(plotOutput("hist"))
)
),
server = function(input, output) {
get("xs", envir = my.env)
output$hist <- renderPlot(
hist(xs, breaks = input$n...
2017 Sep 17
2
Shiny App inside R Package
...,
I have a wrapper function that creates a Shiny App, as illustrated below.
I'd like to include the function myApp() inside a package. I'd appreciate
your guidance here, as I could not find good instructions on this online.
myApp <- function(x) {
require(shiny)
shinyApp(
ui = fluidPage(
sidebarLayout(
sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
mainPanel(plotOutput("hist"))
)
),
server = function(input, output) {
output$hist <- renderPlot(
hist(x, breaks = input$n,
col = "...
2017 Sep 21
0
Add wrapper to Shiny in R package
...uire(shiny)
>
> xs <- scale(x)
>
> shiny::runApp(appDir = system.file("application", package =
> "my_package"), ...)
>
> }
>
> *Under inst/application directory a file named app.R with the following
> content:*
>
> shinyApp(
> ui = fluidPage(
> sidebarLayout(
> sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)),
> mainPanel(plotOutput("hist"))
> )
> ),
> server = function(input, output) {
> output$hist <- renderPlot(
> hist(xs, breaks = input$n,...
2018 Nov 21
2
Promises Future en shiny no me funciona
...as, eh creado la funcion heavyFunction.... Aqui os pongo mi código. ¿Qué creeis que puede estar pasando? Lo curioso es que si os fijais en la consola, si que funciona bien.
library(future)
library(promises)
plan(multiprocess)
heavyFunction <- function(n){
Sys.sleep(n)
print(n)
}
ui <- fluidPage(
actionButton("go","Show the data"),
textOutput("result0sec"),
textOutput("result10sec")
)
server <- function(input,output,session){
data0 <- eventReactive(input$go,{
heavyFunction(0)
})
data10 <- eventReactive(input$go,{
f...
2018 Mar 04
2
problema con shiny
...the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
#setwd("C:/curso 2017-18/curso R/shiny/prueba1")
library(shiny)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Old Faithful Geyser Data"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,...
2017 Oct 08
2
load() failed to load .Rdata file in AWS-Ububtu
...Warning message:
Setting LC_CTYPE failed, using "C"
> load("/home/ubuntu/Dat.RData")
>
However it still failing when I try that within my shiny app in AWS.
Below are my ui.R and server.R files respectively.
library(shiny)
# Define UI for miles per gallon application
fluidPage(
fluidRow(
column(12,
tableOutput('table')
)
)
)
server.R :
library(shiny)
load("/home/ubuntu/Dat.RData")
shinyServer(function(input, output) {
output$table = renderTable(head(data.frame(1:20, 1:20), 20))
})
with above setup when I de...
2020 Nov 07
0
[R] Data Table not rendering properly using R shiny
...ot;))
>>
>> Region Sum_as_Hours
>> 1 Africa 1156.0833
>> 2 Americas 740.1667
>> 3 APAC 740.2833
>> 4 Europe 1895.2000
>> 5 PDO 1053.3500
>> 6 UK 0.0000
>>
>>
>> Rshiny code:
>>
>> library(shiny)
>>
>> ui <- fluidPage(
>> selectInput("Region","Select
>> Region",max_usage_hours_per_region$Region,selected = TRUE),
>> tableOutput("table")
>> )
>> server <- function(input, output) {
>> output$table <- renderTable(
>> max_usage_hours_per_re...
2018 Feb 23
0
Mapedit::selectMap in shiny map.
...returns a dataframe giving the ids of the
selected polygons.
##however the code below - trying to implement in shiny fails with "Can?t
call runApp() from within runApp(). If your application code contains
runApp(), please remove it.
library(shiny)
library(leaflet)
library(mapedit)
ui <- fluidPage(
leafletOutput(?mymap?)
)
server <- function(input, output, session) {
lf<-leaflet() %>%
addTiles()%>%
addPolygons(data =gadmCHE,
label = ~NAME_1,
layerId = ~NAME_1)
output$mymap <- renderLeaflet({selectMap(lf)
})
}
shinyApp(ui, server)
##How do I achieve the same in a shiny map?...
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...am
asking here on the odd chance someone may be able to share his knowledge
and explain what it is I am doing wrong or a workaround that I can apply.
Below is the code I have so far (please feel free to criticize the code, I
am new to R/programming with no background). Thanks
library(shiny)
ui= fluidPage(
sidebarLayout(
sidebarPanel(
selectizeInput(inputId= "invar", label= "invar",
choices= names(iris),
selected= names(iris)[1],
multiple=T),
uiOutput("invarpdf")
),
mainPanel(...
2017 Oct 09
0
load() failed to load .Rdata file in AWS-Ububtu
...ot;
>
> > load("/home/ubuntu/Dat.RData")
>
> >
>
> However it still failing when I try that within my shiny app in AWS.
>
> Below are my ui.R and server.R files respectively.
>
> library(shiny)
>
> # Define UI for miles per gallon application
> fluidPage(
> fluidRow(
> column(12,
> tableOutput('table')
> )
> )
> )
>
> server.R :
>
> library(shiny)
>
> load("/home/ubuntu/Dat.RData")
>
> shinyServer(function(input, output) {
> output$table = rende...
2017 Oct 09
1
load() failed to load .Rdata file in AWS-Ububtu
...at.RData")
>>
>> >
>>
>> However it still failing when I try that within my shiny app in AWS.
>>
>> Below are my ui.R and server.R files respectively.
>>
>> library(shiny)
>>
>> # Define UI for miles per gallon application
>> fluidPage(
>> fluidRow(
>> column(12,
>> tableOutput('table')
>> )
>> )
>> )
>>
>> server.R :
>>
>> library(shiny)
>>
>> load("/home/ubuntu/Dat.RData")
>>
>> shinySe...
2018 Mar 05
2
problema con shiny
...the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
#setwd("C:/curso 2017-18/curso R/shiny/prueba1")
library(shiny)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Old Faithful Geyser Data"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,...
2017 Oct 07
0
load() failed to load .Rdata file in AWS-Ububtu
Hi Christofer,
The directory /srv/shiny-server would normally be owned by the root user.
Your options would seem to be to either (1) bring up the R session as root
(dangerous)
or (2) try copying the file to your local directory and read it from there
(if allowed).
e.g. from the Unix shell:
> cd ~ (i.e. cd to your home directory)
> cp /srv/shiny-server/Dat.Rdata . (Note the '.' at
2017 Oct 07
2
load() failed to load .Rdata file in AWS-Ububtu
Hi again,
I hope this is the right place to post my question on running R within
Ubuntu, however if not, any pointer on right distribution list will be
helpful.
I am currently using R in Ubuntu which is hosted in Amazon - AWS.
I have a .Rdata file in AWS which I am trying to load in R. Used
following code, however, fails to load showing some permission issue.
However that same .Rdata file is
2018 Mar 04
4
problema con shiny
Estimados compañeros tengo un problema con shiny. Es un problema local de mi ordenador, porque en otro va si problemas pero no consigo saber ¿cómo arreglarlo?. He instalado incluso la nueva versión de Rstudio. Os explico:
1) lanzo el programa app.R, el ejemplo de shiny e intenta mostrar los resultados pero si hago: print(environment(show)) da como resultado
Error in func(fname, ...) : app.R did