geom_smooth not working in shiny/plotly

This is a plot I output in the server argument of shiny. Everything works well but the geom_smooth function doesn't show

output$plot2 <- renderPlotly({ 
    
    econ_plot <- short_raw %>% 
      ggplot(aes(color = country, x= !!as.numeric(datax()) , y = !!as.numeric(datay()), #selecting x and y var from those assigned from drop down menu
                 text = paste("Country:", country, "\n", #hover text from plotly
                              paste(input$var,": "), paste(datax(),ifelse(input$var == "Population", "M", ""),
                                                           ifelse(input$var == "Unemployment_Rate", "%", "")), "\n", 
                              "Death Rate:", paste(format(round(death_rate*100, 2), nsmall = 2), "%"), "\n",
                              "GDPPC:", GDPPC, "\n",
                              "Total Deaths:", cumulative_total_deaths, "\n",
                              "Total Cases:", cumulative_total_cases, "\n")))+
      geom_point()+
      geom_smooth(method="loess", formula = y~x)+
      scale_y_continuous(labels = scales::percent_format(accuracy = 1))+ #setting y axis to percentage
      theme_clean()+
      theme(axis.text.x=element_blank(),
            axis.ticks.x=element_blank(),
            legend.position = "none")+
      facet_wrap(~region)+
      labs(x = input$var, y = input$vary) #graph title and labels
    
    
    econ_plot <- ggplotly(econ_plot, tooltip = "text") #printing plot with plotly
  })

Hi!

To help us help you, could you please prepare a reproducible example (reprex) illustrating your issue? Please have a look at this guide, to see how to create one:

Does this work?


#All libraries being loaded and all csvs being read and assigned to variables

library(shiny)
library(tidyverse)
library(ggplot2)
library(dplyr)
library(plotly)
library(ggthemes)

short_raw <- tibble::tribble(
  ~date,                   ~country, ~daily_new_cases, ~cumulative_total_deaths, ~cumulative_total_cases,     ~GDPPC,                        ~region,     ~pop, ~rrank, ~prop_right, ~jud_eff, ~unemp, ~ffree, ~life_ex, ~inf_mort,          ~death_rate,          ~infec_rate,
  "2021-6-11",              "Afghanistan",             1172,                     3460,                   88888,   "$1,958",                 "Asia-Pacific",   "35.5",   "39",      "19.6",   "29.6",  "8.8",   "10",       65,        62,   0.0389253892538925,  0.00250388732394366,
  "2021-6-11",                  "Albania",               11,                     2453,                  132437,  "$12,507",                       "Europe",    "2.9",   "27",      "54.8",   "30.6", "13.9",   "70",     77.8,         0,   0.0185220142407333,   0.0456679310344828,
  "2021-6-11",                  "Algeria",              372,                     3560,                  132727,  "$15,237", "Middle East and North Africa",   "41.5",   "14",      "31.6",   "36.2", "10.0",   "30",     75.6,        21,   0.0268219729218622,  0.00319824096385542,
  "2021-6-11",                   "Angola",              130,                      819,                   36455,   "$6,753",           "Sub-Saharan Africa",   "28.2",   "33",      "35.9",   "26.6",  "8.2",   "40",     52.4,        66,   0.0224660540392264,   0.0012927304964539,
  "2021-6-11",                "Argentina",            26934,                    84628,                 4093090,  "$20,876",                     "Americas",   "44.1",   "26",      "47.8",   "44.5",  "8.7",   "60",     76.3,         8,   0.0206758219340401,   0.0928138321995465,
  "2021-6-11",                  "Armenia",               95,                     4482,                  223555,   "$9,456",                       "Europe",    "3.0",   "24",      "57.2",   "46.3", "18.2",   "70",     74.8,         1,   0.0200487575764353,   0.0745183333333333,
  "2021-6-11",                "Australia",                4,                      910,                   30229,  "$50,334",                 "Asia-Pacific",   "24.8",    "4",      "79.1",   "86.5",  "5.6",   "90",     82.8,         1,   0.0301035429554401,  0.00121891129032258,
  "2021-6-11",                  "Austria",              216,                    10652,                  648187,  "$49,869",                       "Europe",    "8.8",   "16",      "84.2",   "71.3",  "5.5",   "70",     81.5,         0,   0.0164335292130203,   0.0736576136363636,
  "2021-6-11",               "Azerbaijan",               73,                     4951,                  335065,  "$17,492",                 "Asia-Pacific",    "9.8",   "13",      "59.1",   "53.1",  "5.0",   "60",     72.7,         5,   0.0147762374464656,    0.034190306122449,
  "2021-6-11",                  "Bahamas",               40,                      236,                   12092,  "$31,139",                     "Americas",    "0.4",   "15",      "42.2",   "46.9", "12.6",   "60",     76.1,         0,   0.0195170360568971,              0.03023,
  "2021-6-11",                  "Bahrain",              967,                     1196,                  256921,  "$48,505", "Middle East and North Africa",    "1.5",    "5",      "63.5",   "50.7",  "1.2",   "80",     76.9,         0,   0.0046551274516291,    0.171280666666667,
  "2021-6-11",               "Bangladesh",             2454,                    13032,                  822849,   "$4,211",                 "Asia-Pacific",  "163.2",   "27",      "36.1",   "34.5",  "4.4",   "30",     71.8,        92,   0.0158376567268114,  0.00504196691176471,
  "2021-6-11",                 "Barbados",                0,                       47,                    4033,  "$18,664",                     "Americas",    "0.3",   "13",      "52.9",   "59.9",  "9.7",   "60",     75.5,         0,   0.0116538556905529,   0.0134433333333333,
  "2021-6-11",                  "Belarus",             1026,                     2958,                  403845,  "$18,931",                       "Europe",    "9.5",   "42",      "55.2",   "51.7",  "0.5",   "10",     72.3,         0,  0.00732459235597816,              0.04251,
  "2021-6-11",                  "Belgium",              846,                    25068,                 1074204,  "$46,553",                       "Europe",   "11.4",   "25",      "81.3",   "61.6",  "7.4",   "70",     81.1,         0,   0.0233363495202029,   0.0942284210526316,
  "2021-6-11",                   "Belize",               14,                      325,                   12938,   "$8,324",                     "Americas",    "0.4",   "24",      "41.7",   "46.9",  "9.3",   "50",       71,         0,   0.0251198021332509,             0.032345,
  "2021-6-11",                    "Benin",                0,                      102,                    8109,   "$2,277",           "Sub-Saharan Africa",   "11.1",   "21",      "37.2",   "32.8",  "2.5",   "50",       60,        25,   0.0125786163522013, 0.000730540540540541,
  "2021-6-11",                   "Bhutan",               20,                        1,                    1789,   "$8,744",                 "Asia-Pacific",    "0.8",   "16",      "62.5",   "55.4",  "2.4",   "30",     69.8,         0, 0.000558971492453885,           0.00223625,
  "2021-6-11",                 "Botswana",                0,                      896,                   59480,  "$17,828",           "Sub-Saharan Africa",    "2.2",    "3",      "58.1",   "45.7", "17.4",   "70",     65.7,         2,   0.0150638870208473,   0.0270363636363636,
  "2021-6-11",                   "Brazil",            86061,                   484350,                17301220,  "$15,603",                     "Americas",  "207.7",   "27",      "57.3",   "51.7", "13.3",   "50",       75,        42,    0.027995135603154,    0.083299085219066,
  "2021-6-11",        "Brunei Darussalam",                0,                        3,                     248,  "$78,196",                 "Asia-Pacific",    "0.4",   "14",      "64.0",   "56.0",  "7.1",   "50",     77.7,         0,   0.0120967741935484,              0.00062,
  "2021-6-11",                 "Bulgaria",              123,                    17893,                  420213,  "$21,687",                       "Europe",    "7.1",   "19",      "62.5",   "41.9",  "6.2",   "60",     74.5,         0,   0.0425807864107012,   0.0591849295774648,
  "2021-6-11",             "Burkina Faso",                0,                      167,                   13456,   "$1,889",           "Sub-Saharan Africa",   "18.9",    "9",      "49.1",   "42.9",  "6.3",   "40",     59.9,        38,    0.012410820451843, 0.000711957671957672,
  "2021-6-11",                  "Burundi",               15,                        8,                    4975,     "$735",           "Sub-Saharan Africa",   "10.9",   "39",      "20.6",   "31.0",  "1.6",   "30",     59.6,        21,  0.00160804020100503, 0.000456422018348624,
  "2021-6-11",               "Cabo Verde",               79,                      272,                   31512,   "$6,944",           "Sub-Saharan Africa",    "0.5",    "4",      "44.1",   "49.0", "10.3",   "60",     73.3,         0,  0.00863163239400863,             0.063024,
  "2021-6-11",                 "Cambodia",              655,                      311,                   37321,   "$4,012",                 "Asia-Pacific",   "16.0",   "22",      "37.4",   "27.6",  "0.2",   "50",     68.7,        10,  0.00833311004528282,         0.0023325625,
  "2021-6-11",                 "Cameroon",              186,                     1310,                   80090,   "$3,660",           "Sub-Saharan Africa",   "24.3",   "29",      "42.5",   "31.3",  "4.2",   "50",     57.3,        45,   0.0163565988263204,  0.00329588477366255,
  "2021-6-11",                   "Canada",             1441,                    25886,                 1399716,  "$48,265",                     "Americas",   "36.7",    "1",      "87.0",   "69.4",  "6.3",   "80",     82.2,         2,   0.0184937515896082,   0.0381394005449591,
  "2021-6-11", "Central African Republic",                0,                       98,                    7101,     "$677",           "Sub-Saharan Africa",    "5.0",   "38",      "19.6",   "29.6",  "6.0",   "30",     52.5,        15,   0.0138008731164625,            0.0014202,
  "2021-6-11",                     "Chad",                0,                      174,                    4942,   "$2,344",           "Sub-Saharan Africa",   "12.2",   "36",      "26.7",   "24.6",  "5.9",   "40",     53.1,        46,   0.0352084176446783, 0.000405081967213115,
  "2021-6-11",                    "Chile",             7941,                    30472,                 1461419,  "$24,537",                     "Americas",   "18.4",    "3",      "68.7",   "56.3",  "7.0",   "70",       85,         2,   0.0208509674501289,   0.0794249456521739,
  "2021-6-11",                    "China",               22,                     4636,                   91359,  "$16,660",                 "Asia-Pacific", "1390.1",   "20",      "49.9",   "75.2",  "4.7",   "20",     76.1,       157,   0.0507448636696987,  6.5721171138767e-05,
  "2021-6-11",                 "Colombia",            29570,                    94615,                 3694707,  "$14,485",                     "Americas",   "49.3",    "8",      "59.2",   "34.3",  "8.9",   "70",     74.8,        10,   0.0256082552689564,   0.0749433468559838,
  "2021-6-11",                  "Comoros",                0,                      146,                    3894,   "$1,588",           "Sub-Saharan Africa",    "0.8",   "20",      "36.5",   "29.6",  "4.3",   "30",     63.5,         1,   0.0374935798664612,            0.0048675,
  "2021-6-11",               "Costa Rica",             1852,                     4322,                  339900,  "$16,877",                     "Americas",    "5.0",   "11",      "58.3",   "54.0",  "8.1",   "50",     79.6,         1,   0.0127155045601648,              0.06798,
  "2021-6-11",                  "Croatia",              134,                     8123,                  358379,  "$24,424",                       "Europe",    "4.1",   "38",      "66.0",   "42.9", "11.2",   "60",       78,         0,   0.0226659486186412,    0.087409512195122,
  "2021-6-11",                     "Cuba",             1288,                     1065,                  154866,  "$12,920",                     "Americas",   "11.5",   "31",      "31.6",   "10.0",  "2.6",   "10",     79.1,         1,   0.0068769129440936,   0.0134666086956522,
  "2021-6-11",                   "Cyprus",               60,                      372,                   73115,  "$37,023",                       "Europe",    "0.9",   "22",      "73.1",   "48.1", "11.0",   "60",       85,         0,   0.0050878752649935,   0.0812388888888889,
  "2021-6-11",                  "Denmark",              418,                     2523,                  289122,  "$49,883",                       "Europe",    "5.7",    "6",      "86.2",   "77.8",  "5.7",   "80",       86,         0,  0.00872641998879366,   0.0507231578947368,
  "2021-6-11",                 "Djibouti",                1,                      154,                   11571,   "$3,559",           "Sub-Saharan Africa",    "1.0",   "43",      "29.7",   "18.1",  "5.8",   "50",     63.5,         1,   0.0133091349062311,             0.011571,
  "2021-6-11",       "Dominican Republic",             1129,                     3700,                  306698,  "$16,944",                     "Americas",   "10.2",   "19",      "50.6",   "18.1",  "5.5",   "40",     73.9,         6,   0.0120639847667738,    0.030068431372549,
  "2021-6-11",                  "Ecuador",             1098,                    20997,                  437121,  "$11,482",                     "Americas",   "16.8",   "29",      "35.9",   "20.2",  "3.8",   "40",     76.2,         6,   0.0480347546789104,   0.0260191071428571,
  "2021-6-11",                    "Egypt",              733,                    15547,                  271780,  "$12,671", "Middle East and North Africa",   "94.8",   "11",      "37.0",   "48.3", "12.1",   "50",       79,        51,   0.0572043564647877,   0.0028668776371308,
  "2021-6-11",              "El Salvador",                0,                     2288,                   75351,   "$8,948",                     "Americas",    "6.4",   "17",      "37.6",   "29.1",  "4.5",   "60",     73.5,         2,   0.0303645605234171,        0.01177359375,
  "2021-6-11",        "Equatorial Guinea",                0,                      118,                    8640,  "$36,017",           "Sub-Saharan Africa",    "0.8",   "44",      "29.7",   "18.1",  "6.9",   "30",     58.2,         3,   0.0136574074074074,               0.0108,
  "2021-6-11",                  "Eritrea",               82,                       16,                    4848,   "$1,581",           "Sub-Saharan Africa",    "5.9",   "47",      "35.5",   "18.1",  "6.4",   "20",     64.7,         5,   0.0033003300330033, 0.000821694915254237,
  "2021-6-11",                  "Estonia",               54,                     1266,                  130418,  "$31,750",                       "Europe",    "1.3",    "7",      "81.5",   "76.0",  "5.8",   "70",     77.6,         0,  0.00970724899937125,    0.100321538461538,
  "2021-6-11",                 "Ethiopia",              214,                     4235,                  273892,   "$2,161",           "Sub-Saharan Africa",   "92.7",   "26",      "32.6",   "40.9",  "5.2",   "20",     64.8,       136,   0.0154622990083683,  0.00295460625674218,
  "2021-6-11",                     "Fiji",               51,                        4,                     970,   "$9,777",                 "Asia-Pacific",    "0.9",   "18",      "67.3",   "42.9",  "6.3",   "50",     69.9,         0,  0.00412371134020619,  0.00107777777777778,
  "2021-6-11",                  "Finland",               47,                      964,                   93660,  "$44,333",                       "Europe",    "5.5",   "11",      "89.6",   "81.2",  "8.6",   "80",     81.1,         0,   0.0102925475122785,   0.0170290909090909,
  "2021-6-11",                   "France",             3871,                   110344,                 5733838,  "$43,761",                       "Europe",   "64.8",   "35",      "82.5",   "66.1",  "9.4",   "70",     82.4,         2,   0.0192443525610595,   0.0884851543209876,
  "2021-6-11",                    "Gabon",               40,                      156,                   24736,  "$19,254",           "Sub-Saharan Africa",    "1.9",   "17",      "28.1",   "30.6", "19.7",   "40",       66,         2,  0.00630659767141009,   0.0130189473684211,
  "2021-6-11",                   "Gambia",                0,                      180,                    6008,   "$1,713",           "Sub-Saharan Africa",    "2.1",   "30",      "39.9",   "42.5",  "9.5",   "50",     61.1,         3,   0.0299600532623169,  0.00286095238095238,
  "2021-6-11",                  "Georgia",              695,                     5012,                  352649,  "$10,747",                       "Europe",    "3.7",    "8",      "65.9",   "54.6", "11.6",   "70",     74.4,         1,   0.0142124321917828,   0.0953105405405405,
  "2021-6-11",                  "Germany",             2194,                    90398,                 3720811,  "$50,425",                       "Europe",   "82.7",   "14",      "79.9",   "75.4",  "3.8",   "70",       81,         2,   0.0242952410106291,   0.0449916686819831,
  "2021-6-11",                    "Ghana",               75,                      789,                   94444,   "$4,729",           "Sub-Saharan Africa",   "28.3",   "13",      "49.1",   "44.2",  "2.4",   "60",     62.4,        37,  0.00835415696073864,  0.00333724381625442,
  "2021-6-11",                   "Greece",              784,                    12381,                  413954,  "$27,737",                       "Europe",   "10.8",   "43",      "52.4",   "49.5", "21.5",   "50",       81,         0,   0.0299091203370423,   0.0383290740740741,
  "2021-6-11",                "Guatemala",             1861,                     8416,                  269308,   "$8,145",                     "Americas",   "16.9",   "16",      "40.3",   "32.3",  "2.7",   "50",     71.9,        10,   0.0312504641525688,   0.0159353846153846,
  "2021-6-11",                   "Guinea",               14,                      167,                   23366,   "$2,041",           "Sub-Saharan Africa",   "13.0",   "19",      "34.7",   "32.6",  "4.5",   "40",       59,        26,  0.00714713686553111,  0.00179738461538462,
  "2021-6-11",                   "Guyana",              108,                      422,                   18196,   "$8,161",                     "Americas",    "0.8",   "23",      "41.7",   "42.9", "12.0",   "30",     66.2,         0,   0.0231919103099582,             0.022745,
  "2021-6-11",                    "Haiti",              127,                      349,                   16206,   "$1,815",                     "Americas",   "11.0",   "25",      "10.4",   "25.3", "14.0",   "30",     63.5,        14,    0.021535233864001,  0.00147327272727273,
  "2021-6-11",                 "Honduras",              828,                     6567,                  244295,   "$5,562",                     "Americas",    "8.3",   "20",      "43.4",   "31.0",  "4.5",   "60",     74.6,         3,   0.0268814343314435,   0.0294331325301205,
  "2021-6-11",                  "Hungary",              199,                    29904,                  806790,  "$29,474",                       "Europe",    "9.8",   "31",      "60.9",   "45.2",  "4.2",   "70",     75.8,         0,   0.0370654073550738,   0.0823255102040816,
  "2021-6-11",                  "Iceland",                0,                       30,                    6616,  "$51,842",                       "Europe",    "0.3",    "4",      "87.4",   "63.8",  "2.8",   "70",     82.7,         0,  0.00453446191051995,   0.0220533333333333,
  "2021-6-11",                    "India",            84695,                   367097,                29358033,   "$7,183",                 "Asia-Pacific", "1316.9",   "31",      "57.3",   "61.6",  "3.5",   "40",     68.3,       910,   0.0125041415410903,   0.0222932895436252,
  "2021-6-11",                "Indonesia",             8083,                    52566,                 1894025,  "$12,377",                 "Asia-Pacific",  "262.0",   "11",      "52.2",   "53.5",  "4.2",   "60",     69.1,       114,   0.0277535935375721,  0.00722910305343511,
  "2021-6-11",                     "Iraq",             4320,                    16668,                 1246860,  "$16,954", "Middle East and North Africa",   "38.9",  "N/A",      "37.0",   "12.3",  "8.2",  "N/A",     68.9,        32,   0.0133679803666811,   0.0320529562982005,
  "2021-6-11",                  "Ireland",              319,                     4941,                  266073,  "$75,538",                       "Europe",    "4.7",    "2",      "85.8",   "68.4",  "6.4",   "70",     81.4,         0,   0.0185700916665727,   0.0566112765957447,
  "2021-6-11",                   "Israel",               23,                     6428,                  839653,  "$36,340", "Middle East and North Africa",    "8.7",    "2",      "80.0",   "73.4",  "4.3",   "70",     82.5,         0,  0.00765554342091316,   0.0965118390804598,
  "2021-6-11",                    "Italy",             1901,                   126924,                 4241760,  "$38,140",                       "Europe",   "60.6",   "36",      "71.7",   "49.8", "11.2",   "50",     82.7,         1,   0.0299224850062238,   0.0699960396039604,
  "2021-6-11",                  "Jamaica",               69,                      990,                   49179,   "$9,163",                     "Americas",    "2.8",    "5",      "60.7",   "49.2", "12.5",   "50",     76.2,         1,   0.0201305435246752,   0.0175639285714286,
  "2021-6-11",                    "Japan",             2046,                    13907,                  769920,  "$42,832",                 "Asia-Pacific",  "126.7",    "8",      "84.1",   "68.5",  "2.8",   "60",     83.7,         2,   0.0180629156275977,  0.00607671665351223,
  "2021-6-11",                   "Jordan",              343,                     9577,                  742521,  "$12,494", "Middle East and North Africa",    "7.1",    "4",      "58.4",   "52.6", "14.9",   "60",     74.1,         4,   0.0128979517077631,    0.104580422535211,
  "2021-6-11",               "Kazakhstan",             1120,                     4136,                  399096,  "$26,252",                 "Asia-Pacific",   "18.2",   "12",      "59.3",   "56.1",  "4.9",   "50",       72,         4,   0.0103634213322108,   0.0219283516483516,
  "2021-6-11",                    "Kenya",              488,                     3378,                  174773,   "$3,491",           "Sub-Saharan Africa",   "46.7",   "22",      "53.8",   "46.9", "11.5",   "50",     63.4,        54,      0.0193279282269,   0.0037424625267666
)



#UI Argument of ShinyApp Function

ui <- navbarPage("Covid TrackR", #nav bar title
                 tabPanel("Socio-economics", #first graph tab
                          fluidPage(h2("How do different socio-economic metrics affect
                                       Covid-19 death rates and infection rates around the world?"), align = "center",   #Title                  
                            fluidRow(align = "left",       
                              column(2,offset = 2,
                                     h3("Variable Selection"), #variable column title
                                     helpText(h5("Click to explore dropdown menu.")), #instruction text
                                     selectInput("var",#first drop down menu variable assignment
                                                 label = "Choose an x-variable to display", #menu label
                                                 choices = c("Population", "Unemployment_Rate", #menu choices
                                                             "Property_Rights_Score", "Judical_Efficiency_Score",
                                                             "Life_Expectancy"),
                                                 selected = "Population"),#default menu choice
                                     selectInput("vary", #second drop down menu variable assignment
                                                 label = "Choose an y-variable to display", #menu label
                                                 choices = c("Death_Rate", "Infection_rate"), #menu choices
                                                 selected = "Death_Rate") #default menu choice
                              ),
                              column(6, #column where graph is displayed
                                     h3("Graph"),
                                     textOutput("selected_var"),
                                     plotlyOutput("plot2")
                                     
                                     
                                     
                              )
                            )
                          )
                 )
)


server <- function(input, output) { #server argument of ShinyApp
  
  #assigning data vectors to the selected value from the drop down menu of the UI (x var)
  datax <- reactive({  
    switch(input$var,
           Population = short_raw$pop,
           Unemployment_Rate = short_raw$unemp,
           Property_Rights_Score = short_raw$prop_right, 
           Judical_Efficiency_Score = short_raw$jud_eff,
           Life_Expectancy = short_raw$life_ex
    )
    
  })
  #assigning data vectors to the selected value from the drop down menu of the UI (y var)
  datay <- reactive({
    switch(input$vary,
           Death_Rate = short_raw$death_rate,
           Infection_rate = short_raw$infec_rate
    )
  })
  
  
  output$selected_var <- renderText({ #rendering plot
    paste("You have selected", input$var, "vs." , input$vary)
  }) 
  
  
  output$plot2 <- renderPlotly({ 
    
    econ_plot <- short_raw %>% 
      ggplot(aes(color = country, x= !!as.numeric(datax()) , y = !!as.numeric(datay()), #selecting x and y var from those assigned from drop down menu
                 text = paste("Country:", country, "\n", #hover text from plotly
                              paste(input$var,": "), paste(datax(),ifelse(input$var == "Population", "M", ""),
                                                           ifelse(input$var == "Unemployment_Rate", "%", "")), "\n", 
                              "Death Rate:", paste(format(round(death_rate*100, 2), nsmall = 2), "%"), "\n",
                              "GDPPC:", GDPPC, "\n",
                              "Total Deaths:", cumulative_total_deaths, "\n",
                              "Total Cases:", cumulative_total_cases, "\n")))+
      geom_point()+
      geom_smooth(method="loess", formula = y~x)+
      scale_y_continuous(labels = scales::percent_format(accuracy = 1))+ #setting y axis to percentage
      theme_clean()+
      theme(axis.text.x=element_blank(),
            axis.ticks.x=element_blank(),
            legend.position = "none")+
      facet_wrap(~region)+
      labs(x = input$var, y = input$vary) #graph title and lebels
    
    
    econ_plot <- ggplotly(econ_plot, tooltip = "text") #printing plot with plotly
  })
}


shinyApp(ui = ui, server = server)