pickerInput showing numeric values instead of characters











up vote
0
down vote

favorite












Here is my dummy dataframe and variable social which hosts the unique texts to be populated in pickerInput in global.R



social_media <- c("Facebook","Instagram","YouTube","Snapchat","Twitter")
founder <- c("PersonA","PersonB","PersonC","personD","personE")
hits <- c(23,56,76,33,12)

DF <- data.frame(social_media, founder, hits)
social <- unique(DF$social_media)


in app.R, I have implemented pickerInput as follows:



library(shinyWidgets)
library(shiny)

ui <- fluidPage(
titlePanel("pickerInput"),
sidebarLayout(
sidebarPanel(
pickerInput("social","social media", choices = social, multiple = FALSE, options = list(deselectAllText = TRUE,actionsBox=TRUE))
)
,
mainPanel()
))

server <- function(input, output) {}
shinyApp(ui, server)


When I run the app, the list shows only values and not the texts. What could I be missing or not doing so as the choices appear?



enter image description here










share|improve this question




















  • 1




    Try this line of code social <- as.character(unique(DF$social_media))
    – msr_003
    Nov 12 at 4:32






  • 1




    does the answer below work for you? @Sayari?
    – BigDataScientist
    Nov 12 at 11:58















up vote
0
down vote

favorite












Here is my dummy dataframe and variable social which hosts the unique texts to be populated in pickerInput in global.R



social_media <- c("Facebook","Instagram","YouTube","Snapchat","Twitter")
founder <- c("PersonA","PersonB","PersonC","personD","personE")
hits <- c(23,56,76,33,12)

DF <- data.frame(social_media, founder, hits)
social <- unique(DF$social_media)


in app.R, I have implemented pickerInput as follows:



library(shinyWidgets)
library(shiny)

ui <- fluidPage(
titlePanel("pickerInput"),
sidebarLayout(
sidebarPanel(
pickerInput("social","social media", choices = social, multiple = FALSE, options = list(deselectAllText = TRUE,actionsBox=TRUE))
)
,
mainPanel()
))

server <- function(input, output) {}
shinyApp(ui, server)


When I run the app, the list shows only values and not the texts. What could I be missing or not doing so as the choices appear?



enter image description here










share|improve this question




















  • 1




    Try this line of code social <- as.character(unique(DF$social_media))
    – msr_003
    Nov 12 at 4:32






  • 1




    does the answer below work for you? @Sayari?
    – BigDataScientist
    Nov 12 at 11:58













up vote
0
down vote

favorite









up vote
0
down vote

favorite











Here is my dummy dataframe and variable social which hosts the unique texts to be populated in pickerInput in global.R



social_media <- c("Facebook","Instagram","YouTube","Snapchat","Twitter")
founder <- c("PersonA","PersonB","PersonC","personD","personE")
hits <- c(23,56,76,33,12)

DF <- data.frame(social_media, founder, hits)
social <- unique(DF$social_media)


in app.R, I have implemented pickerInput as follows:



library(shinyWidgets)
library(shiny)

ui <- fluidPage(
titlePanel("pickerInput"),
sidebarLayout(
sidebarPanel(
pickerInput("social","social media", choices = social, multiple = FALSE, options = list(deselectAllText = TRUE,actionsBox=TRUE))
)
,
mainPanel()
))

server <- function(input, output) {}
shinyApp(ui, server)


When I run the app, the list shows only values and not the texts. What could I be missing or not doing so as the choices appear?



enter image description here










share|improve this question















Here is my dummy dataframe and variable social which hosts the unique texts to be populated in pickerInput in global.R



social_media <- c("Facebook","Instagram","YouTube","Snapchat","Twitter")
founder <- c("PersonA","PersonB","PersonC","personD","personE")
hits <- c(23,56,76,33,12)

DF <- data.frame(social_media, founder, hits)
social <- unique(DF$social_media)


in app.R, I have implemented pickerInput as follows:



library(shinyWidgets)
library(shiny)

ui <- fluidPage(
titlePanel("pickerInput"),
sidebarLayout(
sidebarPanel(
pickerInput("social","social media", choices = social, multiple = FALSE, options = list(deselectAllText = TRUE,actionsBox=TRUE))
)
,
mainPanel()
))

server <- function(input, output) {}
shinyApp(ui, server)


When I run the app, the list shows only values and not the texts. What could I be missing or not doing so as the choices appear?



enter image description here







r shiny






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited Nov 11 at 12:31









BigDataScientist

6,65531335




6,65531335










asked Nov 11 at 8:43









Sayari

58951130




58951130








  • 1




    Try this line of code social <- as.character(unique(DF$social_media))
    – msr_003
    Nov 12 at 4:32






  • 1




    does the answer below work for you? @Sayari?
    – BigDataScientist
    Nov 12 at 11:58














  • 1




    Try this line of code social <- as.character(unique(DF$social_media))
    – msr_003
    Nov 12 at 4:32






  • 1




    does the answer below work for you? @Sayari?
    – BigDataScientist
    Nov 12 at 11:58








1




1




Try this line of code social <- as.character(unique(DF$social_media))
– msr_003
Nov 12 at 4:32




Try this line of code social <- as.character(unique(DF$social_media))
– msr_003
Nov 12 at 4:32




1




1




does the answer below work for you? @Sayari?
– BigDataScientist
Nov 12 at 11:58




does the answer below work for you? @Sayari?
– BigDataScientist
Nov 12 at 11:58












1 Answer
1






active

oldest

votes

















up vote
1
down vote



accepted










Your variable social is of type factor. That´s why pickerInput() displays numerical output.



If you avoid creating factor:



DF <- data.frame(social_media, founder, hits, stringsAsFactors = FALSE)


it will display the choices as characters.






share|improve this answer





















    Your Answer






    StackExchange.ifUsing("editor", function () {
    StackExchange.using("externalEditor", function () {
    StackExchange.using("snippets", function () {
    StackExchange.snippets.init();
    });
    });
    }, "code-snippets");

    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "1"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });














    draft saved

    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53247107%2fpickerinput-showing-numeric-values-instead-of-characters%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes








    up vote
    1
    down vote



    accepted










    Your variable social is of type factor. That´s why pickerInput() displays numerical output.



    If you avoid creating factor:



    DF <- data.frame(social_media, founder, hits, stringsAsFactors = FALSE)


    it will display the choices as characters.






    share|improve this answer

























      up vote
      1
      down vote



      accepted










      Your variable social is of type factor. That´s why pickerInput() displays numerical output.



      If you avoid creating factor:



      DF <- data.frame(social_media, founder, hits, stringsAsFactors = FALSE)


      it will display the choices as characters.






      share|improve this answer























        up vote
        1
        down vote



        accepted







        up vote
        1
        down vote



        accepted






        Your variable social is of type factor. That´s why pickerInput() displays numerical output.



        If you avoid creating factor:



        DF <- data.frame(social_media, founder, hits, stringsAsFactors = FALSE)


        it will display the choices as characters.






        share|improve this answer












        Your variable social is of type factor. That´s why pickerInput() displays numerical output.



        If you avoid creating factor:



        DF <- data.frame(social_media, founder, hits, stringsAsFactors = FALSE)


        it will display the choices as characters.







        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered Nov 11 at 12:28









        BigDataScientist

        6,65531335




        6,65531335






























            draft saved

            draft discarded




















































            Thanks for contributing an answer to Stack Overflow!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.





            Some of your past answers have not been well-received, and you're in danger of being blocked from answering.


            Please pay close attention to the following guidance:


            • Please be sure to answer the question. Provide details and share your research!

            But avoid



            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53247107%2fpickerinput-showing-numeric-values-instead-of-characters%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            Full-time equivalent

            さくらももこ

            13 indicted, 8 arrested in Calif. drug cartel investigation