analytixware / shinysky Goto Github PK

I have created a Shiny app that uses ShinySky busyindicator function. I've added a Remote; at my description file to make devtools to install shinysky from github, but when I try to upload the package to CRAN it fails because there is no CRAN version of the shinysky package.

Do you plan to upload a cran version of the package?

I've noticed that when I type into the typeahead text bar, the font is partially occluded by the text box (when running in the browser) or appears below the border for the text box (when running in Rstudio).

I've attached screenshots of both. Is there a parameter I can use to make the text box larger or the font smaller so that it's fully visible in the selection box? Otherwise this is a terrific feature!

When the selectable data are character strings with spaces in-between (e.g. "Zurich Enge", "Zurich Wiedikon"), autocomplete-suggestions are made while typing the first word, but after entering the space, the second word is no longer autocompleted and can't be entered manually either. Clicking on a suggestion in the drop-down menu works, but if the item of interest is not yet suggested, it can also not be selected.

I have found this for the shiny 0.11.1 theme = shinytheme("spacelab").

By the way, now using the default theme, in the documentation there is a nice UI for textInput.typeahead, however I get something different. Specifically, a rounded input field instead of a squared input field, and bigger fonts.

This is the one from the documentation:

This is what I get:

https://stackoverflow.com/questions/44889257/image-size-of-shinysky-busyindicator

An error has occurred
The application failed to start: exited unexpectedly with code 1

Loading required package: devtools
Loading required package: usethis
Downloading GitHub repo AnalytixWare/ShinySky@HEAD
Warning in i.p(...) :
'lib = "/opt/R/4.0.5/lib/R/library"' is not writable
Error in value[3L] : Failed to install 'shinysky' from GitHub:
unable to install packages
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne ->
Execution halted

Hi - select2input breaks the heights/widths of my ggvis, strangely! Any ideas?

Error: Invalid negative value for attribute height="-5"u @ d3.min.js:1(anonymous function) @ d3.min.js:3H @ d3.min.js:1ka.each @ d3.min.js:3ka.attr @ d3.min.js:3vg.svg.Renderer.prototype.resize @ vega.min.js:2vg.svg.Renderer.prototype.initialize @ vega.min.js:2vg.View.prototype.initialize @ vega.min.js:4vg.View.prototype.height @ vega.min.js:4ggvis.Plot.prototype.resizeToWrapper @ ggvis.js:324ggvis.Plot.prototype.initialUpdate @ ggvis.js:376(anonymous function) @ shiny-ggvis.js:120
vega.min.js:2 Error: Invalid negative value for attribute width="-56"

I'm wanting to use something like the following in a select2input for the choices

choices = list(
               "Group 1"=1,
               "Group 2"=2,
               "Group 3"=3,
               "Group 4"=4
                )

I'm expecting it to present "Group 1" or "Group 3" and have the underlying 1 & 3 values upon selection, but instead, I'm not seeing the string names for the list, just the underlying integer values.

This is how I would setup a checkboxGroupInput. I also tried doing it using setNames to generate the named list, but it's still not working.

Is this a bug, or am I missing something?

From StackOverFlow 2016
https://stackoverflow.com/questions/31410738/shinysky-select2input-bug

... select2 is not working properly, yet.

Hello,

I'm trying to install shinysky (devtools::install_github("AnalytixWare/ShinySky") in R version 3.6.2 and it throws me an error:

Error: Failed to install 'shinysky' from GitHub:
(converted from warning) installation of package ‘C:/Users/Usuario/AppData/Local/Temp/RtmpcDGQUI/file68d81f3114a/shinysky_0.1.3.tar.gz’ had non-zero exit status

shiny::runApp('inst/app')
Loading required package: shiny
Error in unloadNamespace(package) :
namespace ‘shiny’ is imported by ‘shinysky’ so cannot be unloaded
Failed with error: ‘Package ‘shiny’ version 0.13.1 cannot be unloaded’
Error in eval(expr, envir, enclos) :
could not find function "..stacktraceon.."

Hello Zhou,

I have tried for a while now to install a package ntbox, which depends on shinysky (https://luismurao.github.io/ntbox_user_guide.html). However, for some unknown reason, shinysky will not install on my system.

I have used the devtools and the removes packages, it seems to connect to download but then fails to install giving a non-zero exit error. rtools has also been set up successfully on my machine (I think)..

Do you have any ideas about what is preventing the installation from happening? I have checked all forums etc.

I am using the most recent version of rstudio on windows 10. Below is the error message.

Many Thanks in advance,

install_github("AnalytixWare/ShinySky")
Downloading GitHub repo AnalytixWare/ShinySky@HEAD
√ checking for file 'C:\Users\nosho\AppData\Local\Temp\RtmpOy7YXy\remotes4fa4165d7752\AnalytixWare-ShinySky-695b4b9/DESCRIPTION' (413ms)

• preparing 'shinysky':
  √ checking DESCRIPTION meta-information ...
• checking for LF line-endings in source and make files and shell scripts
• checking for empty or unneeded directories
• building 'shinysky_0.1.3.tar.gz'

Installing package into ‘C:/Users/nosho/Documents/R/win-library/3.6’
(as ‘lib’ is unspecified)

• installing source package 'shinysky' ...
  ** using staged installation
  ** R
  ** inst
  ** byte-compile and prepare package for lazy loading
  Error: (converted from warning) package 'shiny' was built under R version 3.6.3
  Execution halted
  ERROR: lazy loading failed for package 'shinysky'
• removing 'C:/Users/nosho/Documents/R/win-library/3.6/shinysky'
  Error: Failed to install 'shinysky' from GitHub:
  (converted from warning) installation of package ‘C:/Users/nosho/AppData/Local/Temp/RtmpOy7YXy/file4fa43ab662e7/shinysky_0.1.3.tar.gz’ had non-zero exit status

In busyIndicator.r the div for the busyIndicator was changed from busy, to shiny-busy.
In my ShinyApp, the busyIndicator will continously be displayed, while if the div is busy it works as I expect - Only showing up when loading is actually taking place.

Is there somewhere I need to change the busy indication for the shiny server, or am I just having a one-off issue?

when using shinyalert(id, click.hide = TRUE, auto.close.after = NULL) in dashboadBody, eveif it hidden by default, it does take some estate of the body for nothing.
In server.ui I have used hideshinyalert(session, id) to overcome this but you see the show/hide effect once you open the app.

Anyway we could by default hide it in ui.R?
Thanks, Dylan

I'm trying to render a select2Input box from renderUI after downloading a bunch of symbols. But the select2Input box renders on the UI without the "Enter Symbols" label. The same code when used with selectInput box renders without any issue.

Here are my code snippets:

UI

               wellPanel(
                   busyIndicator("Loading...please wait...", wait = 0),
                   uiOutput("sel2"),
                   actionButton("updateButton", "Update"),
                   uiOutput("dates")
               )

Server

    output$sel2 <- renderUI({
        select2Input("sel2", "Enter Symbols", choices = dfSecurities$symbol)
    })

When declaring a default action button (without the Shiny Sky package), one can add a Font Awesome icon in the following manner: actionButton("action", "Go!", width = "100%", icon("paper-plane"))

However with the Shiny Sky library, the icon disappears

On your home page, the installation command for shinysky is install.package("shinysky"). Whereas it should be install.packages("shinysky"). The "s" is missing at the end of "packages".
Also when I use install.packages("shinysky"), I get an error saying : -

Warning message: package ‘shinysky’ is not available (for R version 3.6.2).

So i have to use the devtools::install_github() command to install the package.
Please correct this issue.
And thanks for the amazing tools and widgets.

Hi,

First of all, congratulation for this package which is a nice add on for shiny.

I know it's possible to hide an alert by clicking on it but Is there anyway to hide automatically an alert after 2 or 3 seconds ?

Thanks!

When clicking update the 2nd select2 doesn't get updated properly

Hello,
How to disable the shiny alert once it is shown ?

Default table has cell forma = "0,0.00". Can we round it to without decimal?

I have the following issues to share:

A) When selecting default choices, they should load in the order in which they are specified, not alphabetical order. For example, if my default selections are "c" and "a", they should not load to "a" and "c".

B) When a user selects a value, it can no longer be modified. They will have to delete that, but in applications where order is important it can screw things up.

C) The ability to move choices around would be useful to have if one want to swap (e.g.) a 4th value with the 8th value. Currently one would have to delete everything after the third values and choose values 4 onwards.

D) Implementation of an updateSelect2Input function

You should use Imports instead of Depends in the DESCRIPTION. Otherwise you create conflicts, especially since plyr conflicts with a lot of packages.

For example, using your package broke my app because count was suddenly taken from plyr instead of dplyr.

BTW you have to use Imports if you intend to submit to CRAN.

I want to bind row/column adding to buttons inside my webapp. Searching the documentation, I did not found any useful functions. Are there any workarounds or did I miss something?

The handsontable implementation is good, as it works with shiny & partials.

See http://stackoverflow.com/questions/26357187/shinytable-does-not-work-with-partials/26495429#26495429

It would be great to add the cell coloring (e.g. like shinyTable) to this, to enable for example to represent RAG status (red / amber / green etc.).
Then it would be perfect for me :)

Hi,

I have a reproducible example:

testing <- function() {
shinyApp(ui = fluidPage(
sidebarLayout(
sidebarPanel(
select2Input("select2Input3",
"Multiple Select 2 Input",
choices = c("a","b","c"),
selected = c("b","a"),
type = "select")
),mainPanel(
))
), server = function(input, output){})
}

testing()

I am confused as to why even though I have choices as c("a", "b", "c"), the dropdown will only select b and have no other choices. I have also tried just selected = "b", but with no luck. I looked at the examples for shiny sky and I can't see what I am missing. The video tutorial showed the same type of dropdown but had "b" selected, yet the user could also click on "a" or "c" in the dropdown: https://www.youtube.com/watch?feature=player_embedded&v=9T4F-j76Vf0&noredirect=1

I may be missing something obvious, but I can't seem to find it right now. Thank you!

I have more than 1000 rows to display, and I want to set hotable's height and add vertical scrollbar. How could I set the option?

I'm sure there's a reason for removing it, but is it coming back or it's incorporated into a different project? Thanks!

Yindeng

I'm trying to create a renderUI() function that produces a UI that includes an editable table.
When I use renderTable() it is successful.
When I use renderHotable() it throws an error.
I printed out the functions that both render functions return.
They differ at least in the attributes / classes of the function.
Perhaps this is the source of the problem.
Below I give some sample code and output for both scenarios.

regards
Desmond

renderHotable version

output$reportPed <- renderUI({
    fnRep("renderUI() BEGIN")

    LL <- list()
...
    dfPed <- data.frame(a=1:2,b=3:4)
    fnStr(dfPed)
    fnRender <- renderHotable( expr={ dfPed }, readOnly=F )
    fnStr(fnRender)
    print(fnRender)
    LL[[ length(LL) + 1 ]] <- fnRender

    fnStr(LL)
    fnRep("renderUI() END")
    return(LL)
})

throws an error and produces the following

VALUE: dfPed = 'data.frame': 2 obs. of 2 variables:
$ a: int 1 2
$ b: int 3 4

VALUE: fnRender = function ()
function ()
{
df <- func()
if (is.null(df)) {
return()
}
if (nrow(df) == 0) {
return()
}
json <- NULL
json$colHeaders <- colnames(df)
columns <- NULL
types <- sapply(df, typeof)
l <- length(types)
readOnly <- rep(readOnly, length.out = l)
for (i in 1:l) {
if (i == 1) {
columns[[i]] <- list(readOnly = readOnly[i])
}
else if (types[i] == "double") {
columns[[i]] <- list(type = "numeric", format = "0,0.00",
readOnly = readOnly[i])
}
else if (types[i] == "logical") {
columns[[i]] <- list(type = "checkbox", readOnly = readOnly[i])
}
else {
columns[[i]] <- list(readOnly = readOnly[i])
}
}
json$columns <- columns
json$data <- df
json
}
<environment: 0x00000000250e8008>

VALUE: LL = List of 4
$ :Classes 'html', 'character' atomic [1:1] Pedigree Diagram
.. ..- attr(, "html")= logi TRUE
$ :function (shinysession, name, ...)
..- attr(, "class")= chr [1:2] "shiny.render.function" "function"
..- attr(, "outputFunc")=function (outputId, width = "100%", height = "400px", click = NULL, dblclick = NULL, hover = NULL, hoverDelay = NULL, hoverDelayType = NULL, brush = NULL, clickId = NULL, hoverId = NULL,
inline = FALSE)
$ :Classes 'html', 'character' atomic [1:1]

Error in as.character(x) :
cannot coerce type 'closure' to vector of type 'character'

it produces the following trace of the error

Enter a frame number, or 0 to exit

1: runApp(file.path("..", sAppDir))
2: shinyCallingHandlers(while (!.globals$stopped) {
serviceApp()
Sys.sleep(0.001)
})
3: withCallingHandlers(expr, error = function(e) {
handle <- getOption("shiny.error")
if (is.function(handle))
handle()
})
4: Sys.sleep(0.001)

whereas

renderTable version

output$reportPed <- renderUI({
    fnRep("renderUI() BEGIN")

    LL <- list()
...
    dfPed <- data.frame(a=1:2,b=3:4)
    fnStr(dfPed)
    fnRender <- renderTable( expr={ dfPed }, readOnly=F )
    print(fnRender)
    LL[[ length(LL) + 1 ]] <- fnRender

    fnStr(LL)
    fnRep("renderUI() END")
    return(LL)
})

runs cleanly and produces the following

VALUE: dfPed = 'data.frame': 2 obs. of 2 variables:
$ a: int 1 2
$ b: int 3 4

VALUE: fnRender = function ()

• attr(*, "class")= chr [1:2] "shiny.render.function" "function"
• attr(*, "outputFunc")=function (outputId)
  function ()
  {
  classNames <- getOption("shiny.table.class") %OR% "data table table-bordered table-condensed"
  data <- func()
  if (is.null(data) || identical(data, data.frame()))
  return("")
  return(paste(utils::capture.output(print(xtable(data, ...),
  type = "html", html.table.attributes = paste("class="",
  htmlEscape(classNames, TRUE), """, sep = ""), ...)),
  collapse = "\n"))
  }
  <environment: 0x00000000219b3fa0>
  attr(,"class")
  [1] "shiny.render.function" "function"
  attr(,"outputFunc")
  function (outputId)
  {
  div(id = outputId, class = "shiny-html-output")
  }
  <environment: namespace:shiny>

VALUE: LL = List of 4
$ :Classes 'html', 'character' atomic [1:1] Pedigree Diagram
.. ..- attr(, "html")= logi TRUE
$ :function (shinysession, name, ...)
..- attr(, "class")= chr [1:2] "shiny.render.function" "function"
..- attr(, "outputFunc")=function (outputId, width = "100%", height = "400px", click = NULL, dblclick = NULL, hover = NULL, hoverDelay = NULL, hoverDelayType = NULL, brush = NULL, clickId = NULL, hoverId = NULL,
inline = FALSE)
$ :Classes 'html', 'character' atomic [1:1]

Thank you for the ShinySky package it has a lot of useful tools including the Hands On Table. I was looking at the hands on table website for assistance on how to add a new row, but I was unable to see how to add this functionality to ShinySky's hands on table.

Could you please let me know if it is currently possible to add/remove rows from a hands on table in a Shiny application?

http://handsontable.com/

as the title says..Textinput.typeahead requires manual input and manual delete.. I am opening it in here for more details https://stackoverflow.com/questions/51122838/how-to-reset-textinput-typeahead-input-value-within-r-shinysky-package