1: library(shiny)2: library(ggplot2)3:4: ui <- fluidPage(5: plotOutput("plot")6: )7:8: server <- function(input, output, session) {9: mydata <- reactive({10: head(25, cars)11: })12:13: output$plot <- renderPlot({14: ggplot(mydata(), aes(speed, dist)) + geom_point()15: })16: }17:18: shinyApp(ui, server)
> shinyApp(ui, server)Listening on http://127.0.0.1:7416Error : length(n) == 1L is not TRUE
Listening on http://127.0.0.1:6212Warning: Error in : length(n) == 1L is not TRUEStack trace (innermost first):96: stopifnot95: head.default94: head93: reactive mydata [~/app.R#10]82: mydata81: ggplot80: renderPlot [~/app.R#14]72: output$plot5: <Anonymous>4: do.call3: print.shiny.appobj2: print1: source
options(shiny.fullstacktrace = TRUE)
Listening on http://127.0.0.1:7527ERROR: [on_request_read] connection reset by peerWarning: Error in if: missing value where TRUE/FALSE neededStack trace (innermost first): 45: srcrefToLabel 44: reactive 43: server [#38] 4: <Anonymous> 3: do.call 2: print.shiny.appobj 1: printError in if (m[[1]][1] == -1) { : missing value where TRUE/FALSE neededWarning: Error in nrow: could not find function "prices"Stack trace (innermost first): 73: nrow 72: renderText [#31] 71: func 70: output$summaryText 4: <Anonymous> 3: do.call 2: print.shiny.appobj 1: printERROR: [on_request_read] connection reset by peer
--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/826ca1fe-b7dc-4a81-81ba-bb0bc07d2204%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
R version 3.1.3 (2015-03-09)Platform: x86_64-w64-mingw32/x64 (64-bit)Running under: Windows 7 x64 (build 7601) Service Pack 1
locale:[1] LC_COLLATE=English_Canada.1252 LC_CTYPE=English_Canada.1252 [3] LC_MONETARY=English_Canada.1252 LC_NUMERIC=C [5] LC_TIME=English_Canada.1252
attached base packages:[1] stats graphics grDevices utils datasets methods base
loaded via a namespace (and not attached):[1] tools_3.1.3
Warning: Error in if: missing value where TRUE/FALSE neededStack trace (innermost first): 45: srcrefToLabel 44: reactive
43: server [#30]
4: <Anonymous> 3: do.call 2: print.shiny.appobj 1: printError in if (m[[1]][1] == -1) { : missing value where TRUE/FALSE needed
ERROR: [on_request_read] connection reset by peer
R version 3.2.2 (2015-08-14)Platform: x86_64-w64-mingw32/x64 (64-bit)Running under: Windows 7 x64 (build 7601) Service Pack 1
locale:[1] LC_COLLATE=English_Canada.1252 LC_CTYPE=English_Canada.1252 [3] LC_MONETARY=English_Canada.1252 LC_NUMERIC=C [5] LC_TIME=English_Canada.1252
attached base packages:[1] stats graphics grDevices utils datasets methods base
loaded via a namespace (and not attached):[1] tools_3.2.2
Warning: Error in if: missing value where TRUE/FALSE needed
Warning in value[[3L]](cond) : Failed to write stack trace: Error in as.character(call[[1]]): cannot coerce type 'promise' to vector of type 'character'
Error in if (m[[1]][1] == -1) { : missing value where TRUE/FALSE neededWarning: Error in nrow: could not find function "prices"
Warning in value[[3L]](cond) : Failed to write stack trace: Error in as.character(call[[1]]): cannot coerce type 'promise' to vector of type 'character'
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/c3124fec-9465-4a8b-a537-3ff936baf163%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/b015bb6d-784e-4b12-8c7e-d4c6971de8d3%40googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/da0c5fe5-37ab-4f52-be3b-26a5b6685f6e%40googlegroups.com.
Error in loadNamespace(i, c(lib.loc, .libPaths()), versionCheck = vI[[i]]) : there is no package called ‘mime’ In addition: Warning message: package ‘shiny’ was built under R version 3.0.3 Error: package or namespace load failed for ‘shiny’
--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/d66b59d6-60a4-4cd3-b90d-7a8ab927230d%40googlegroups.com.
--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/bc30a622-7118-431d-a96f-2cdc1d90dd03%40googlegroups.com.
Warning: Error in : length(n) == 1L is not TRUE
Stack trace (innermost first):
95: stopifnot
94: head.default
93: head
92: reactive mydata [#3]
81: mydata
80: ggplot
79: renderPlot [#7]
71: output$plot
4: <Anonymous>
3: do.call
2: print.shiny.appobj
1: print
> sessionInfo()
R version 3.2.0 (2015-04-16)
Platform: x86_64-unknown-linux-gnu (64-bit)
Running under: Red Hat Enterprise Linux Server release 6.6 (Santiago)
locale:
[1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8
[5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8 LC_PAPER=en_US.UTF-8 LC_NAME=C
[9] LC_ADDRESS=C LC_TELEPHONE=C LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] ggplot2_1.0.1 shiny_0.12.2.9006
loaded via a namespace (and not attached):
[1] Rcpp_0.12.1 digest_0.6.8 MASS_7.3-42 mime_0.4 grid_3.2.0 R6_2.1.1 plyr_1.8.3
[8] jsonlite_0.9.19 xtable_1.8-0 gtable_0.1.2 magrittr_1.5 scales_0.3.0 stringi_1.0-1 reshape2_1.4.1
[15] proto_0.3-10 Cairo_1.5-8 tools_3.2.0 stringr_1.0.0 munsell_0.4.2 httpuv_1.3.3 colorspace_1.2-6
[22] htmltools_0.2.6
--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/b7dcaaff-e5f8-466d-b0de-28f266d10ef0%40googlegroups.com.
library(shiny)library(shinydashboard)shinyApp( ui = dashboardPage(title='Time Application' #header ,dashboardHeader(title=strong(h4("Time Application")),titleWidth='150px') #left side tabs ,dashboardSidebar( sidebarMenu(id='tabs',menuItem("Filters",icon=icon("filter"), tabName='tab_parameters')) ,width='150px' ) #body of the application, based on the tab ,dashboardBody( tabItems( tabItem(tabName = 'tab_parameters' ,fluidRow( box(width=6,title='Filters' #remove dateRange input and it works ,dateRangeInput("period" , label ="Period" , min = '2013-01-01' , max = '2016-01-01' , start = '2013-01-01' , end = '2016-01-01' ) ) ) ,fluidRow(width=12,box(status='success',title='Group By' ,selectizeInput( "OT_summary_criteria" , label =NULL , multiple=TRUE , choices = c('a','b') , selected ='a' #remove next line and it works , options=list(plugins = list('remove_button','drag_drop')) ) )) ,"You should see something here below if it works:" ,textOutput('infot') ) ) ) ) , server = function(input, output, session) { output$infot = renderText( paste0('IT IS WORKING')) })