Can I Add URL after USER selects from dropdown? (Shiny App)

Posit Professional & Hosted Products shinyapps.io
1

I'm still learning R and please excuse my ignorance/messy code. This is also leftover from previous programmer. I have commented out/deleted because of different excel files.

My boss wants a landing page after the user selects the information, it all depends on the lens matching (for example, pi1 from Eyewear Lens Compatible field which then should bring us to Pi1 Lense . So, just URL link, not the picture. I've been trying for two days , to no avail. I get this error when I tried to use tags$a(href="Pi1 Laser Glasses & Frames - High Quality Laser Eyewear | Innovative Optics", "Pi1")

Like I said, I'm new and I'm still clueless. I appreicate the help. Thanks!!!!

data for qoptics_data

structure(list(`Q Optics Loupe` = c("Eclipse 130", "Eclipse 138", 
"Eclipse 146", "Panto 53", "Classic 61", "Panto 51", "Panto 55", 
"Classic 54", "Classic 56"), `Pi1 Front` = c("https://photos.google.com/u/1/photo/AF1QipOStbBM0GM3OuWL15o3RenCvJa3CfWvd13wb08I", 
"https://photos.google.com/u/1/photo/AF1QipNrPeKnqK9xdzVVD5U6w5FucMpL9s0L1u1Puxik", 
"https://photos.google.com/u/1/photo/AF1QipMAXqDo-U8RsM-tFjYedxHLKbWKvc2q5KrVGWi6", 
"https://photos.google.com/u/1/photo/AF1QipPlBeLnhOS3zda2eB4j3ri4qSJEZ8mE9CuXA1mE", 
"https://photos.google.com/u/1/photo/AF1QipNWP73wfQEc5kqCD0vPTwaOmgxNBBCguGkoXw2D", 
"https://photos.google.com/u/1/photo/AF1QipOTEmFNeARP6rm0oo_omLELMKHjSU3HOvXqd3d3", 
"https://photos.google.com/u/1/photo/AF1QipM2DWGH9S2v7mDIMo-t5XP8xuXzpEDrM8qoGUOf", 
"https://photos.google.com/u/1/photo/AF1QipNpb-6CdNtGj3K6R9C9MM-uuLR15AuSpUyeUL2x", 
"https://photos.google.com/u/1/photo/AF1QipPG31Ny6RczBYafoL3CMxe5pSAEkQclgtvK3Spi"
), `Pi1 Back` = c("https://photos.google.com/u/1/photo/AF1QipNZnlLpQScPnI5vxkO587wdXZtxazvkA3bqTazK", 
"https://photos.google.com/u/1/photo/AF1QipPzhHi_NK6fixbGcMEy9zduHQM-5udnsvkTMnkK", 
"https://photos.google.com/u/1/photo/AF1QipO8TDKKvYlqZW5dD4AyiFsEO9X3Zm7TKs_FVo9h", 
"https://photos.google.com/u/1/photo/AF1QipMcVJJuydwqiHMyAZOh4GET_ICE5bb6FxK23TPl", 
"https://photos.google.com/u/1/photo/AF1QipNEzu8XX5Czr2kSYxAjjfAXMhNN6JoP7tmQ3Jiy", 
"https://photos.google.com/u/1/photo/AF1QipNAgV4i_QEIYvKnHpsDBp3_hFWnMppvFTjRFMO7", 
"https://photos.google.com/u/1/photo/AF1QipOUqB4WRC1VNXad8LrLDxcFztEASbKGq-FL9_iI", 
"https://photos.google.com/u/1/photo/AF1QipMj7yL3u_T7hF0pU3jKCLNndcmSASImsQwXI14V", 
"https://photos.google.com/u/1/photo/AF1QipP55VECVuGmfjRTYwy7HCkhKe-gzymp9EF0VjbV"
), `Pi17 Front` = c("https://photos.google.com/u/1/photo/AF1QipNKQnzbfuBysmxhahJ4ZtUZl2TpWKaQnj8APYjA", 
"https://photos.google.com/u/1/photo/AF1QipO8TEzdhTBnSTYeJAPGlzoiJF4urm3zJU3Fqf-c", 
"https://photos.google.com/u/1/photo/AF1QipOPnBMRToS0lT6dxTX3HSxjVTbas3NHIM7kmF9r", 
"https://photos.google.com/u/1/photo/AF1QipPTn5QxKqfbkycT-xgKa6gErX9ocUIivi6jayvI", 
"https://photos.google.com/u/1/photo/AF1QipOUiW6Sr6Yc2_g6JHCYoRxToYB7FkWBgGiP1Tn3", 
"https://photos.google.com/u/1/photo/AF1QipPw3zCy8TxiBvzqUFJrCXuymU859kcmNwIZULUP", 
"https://photos.google.com/u/1/photo/AF1QipMaKdYemzOuW1rj_OyScH2G33qkoY3swM1VQECt", 
"https://photos.google.com/u/1/photo/AF1QipPse4HwY-FL4MvlhPpurtkfThCPrebZA5DzBZij", 
"https://photos.google.com/u/1/photo/AF1QipP9MkpSfSNXA5vDv-HXCZ5eTSvl3xp6RJk1D0NG"
), Pi17Back = c("https://photos.google.com/u/1/photo/AF1QipNQWudHLcyJ1yqlbqGezuvjyrB6LpLweE1HxIMl", 
"https://photos.google.com/u/1/photo/AF1QipNzc5rgMc6En5Vik8I6dWKYj3A_Zw1wWzRnTffK", 
"https://photos.google.com/u/1/photo/AF1QipNYdFbK8xpZreYwKw9oAj7Ad7_bOOlNkPx0k5rz", 
"https://photos.google.com/u/1/photo/AF1QipN8Yj3rE7WUjL9HniFZIlRIwakOgGdNh0U-ZS1u", 
"https://photos.google.com/u/1/photo/AF1QipOVRUj1LvAI7CqyQM-Ms_aFC5-RbrBtA9fh_xLq", 
"https://photos.google.com/u/1/photo/AF1QipN9omZ3o_4wcEfdaZ0cb6_hNtgpUyiMUZh6mYGH", 
"https://photos.google.com/u/1/photo/AF1QipMZ5w2UU6G5Z12pGG6dmezC43cXDzp1JnP0v0BX", 
"https://photos.google.com/u/1/photo/AF1QipPxuO5X85TV3fMSxLj5hVbbOp9vXr-8HNf1af-M", 
"https://photos.google.com/u/1/photo/AF1QipMIvaAX_7tExJXqBKznpnxl8Ew4a6BDsfrTyII1"
), `Pi19 Front` = c("https://photos.google.com/u/1/photo/AF1QipMCd-_21-cqcmdCidFamiqfBJ_bzNWYewQxYtX0", 
"https://photos.google.com/u/1/photo/AF1QipPoelpuvanmJmT6XLIf1xTi8RqTk6TnMw1SzpTH", 
"https://photos.google.com/u/1/photo/AF1QipMmQLEImr_FxqeGfii4qs1McPT-YpUwI1C7hlTE", 
"https://photos.google.com/u/1/photo/AF1QipMMgiRHHWchPhNQRur156QMfx5blzSgKnzNfI15", 
"https://photos.google.com/u/1/photo/AF1QipMm7hNg2SEIUvmm9iv8iK6MkKb7IvAmcwit_97_", 
"https://photos.google.com/u/1/photo/AF1QipOnEkEKWVPva42oQ7f_QH9tr_B1PnxyjDZVyOKY", 
"https://photos.google.com/u/1/photo/AF1QipNn1uoQZm9cn8jsiV4ocWny8inryiRA3bbR4KxH", 
"https://photos.google.com/u/1/photo/AF1QipPMJgtbKT-NMjGdPQ8K_L8CYMvgSXZP5aY22juK", 
"https://photos.google.com/u/1/photo/AF1QipPW8BJv5qIoyyzVjy0zuKI242LOxMYsRyFJxBsg"
), `Pi19 Back` = c("https://photos.google.com/u/1/photo/AF1QipMxnjLRCBpCL9cznYihTUhSXX5BgDWaDxGaKIe-", 
"https://photos.google.com/u/1/photo/AF1QipMzcKjn3UyoK3DWZMVj8hI-dWfAqKejWmZBfkHJ", 
"https://photos.google.com/u/1/photo/AF1QipPBWwT3lxBLUttOhzARUoM1L6xPFmZJz19CGjAE", 
"https://photos.google.com/u/1/photo/AF1QipOkG8DjQlsm3TXGjDP_8NQqUtEAGyOwYiTNr42A", 
"https://photos.google.com/u/1/photo/AF1QipMm7hNg2SEIUvmm9iv8iK6MkKb7IvAmcwit_97_", 
"https://photos.google.com/u/1/photo/AF1QipOqoZNMwD00UtrVPG7k8o3JnThfetAYRLIOlIkP", 
"https://photos.google.com/u/1/photo/AF1QipNMDbjokFX4Qnthsk7Yxr3WVv1sEdHXoWFyZzMU", 
"https://photos.google.com/u/1/photo/AF1QipPTJq-id25rY-2e4NPJQ2EXzV6Tx8_ioTYxv-LR", 
"https://photos.google.com/u/1/photo/AF1QipP3OgXjO4GadrJbxISxZlvIO3FoLJ6OuCqhml4L"
), `Pi23 Front` = c("https://photos.google.com/u/1/photo/AF1QipMCd-_21-cqcmdCidFamiqfBJ_bzNWYewQxYtX0", 
"https://photos.google.com/u/1/photo/AF1QipPoelpuvanmJmT6XLIf1xTi8RqTk6TnMw1SzpTH", 
"https://photos.google.com/u/1/photo/AF1QipMmQLEImr_FxqeGfii4qs1McPT-YpUwI1C7hlTE", 
"https://photos.google.com/u/1/photo/AF1QipMMgiRHHWchPhNQRur156QMfx5blzSgKnzNfI15", 
"https://photos.google.com/u/1/photo/AF1QipMm7hNg2SEIUvmm9iv8iK6MkKb7IvAmcwit_97_", 
"https://photos.google.com/u/1/photo/AF1QipOnEkEKWVPva42oQ7f_QH9tr_B1PnxyjDZVyOKY", 
"https://photos.google.com/u/1/photo/AF1QipNn1uoQZm9cn8jsiV4ocWny8inryiRA3bbR4KxH", 
"https://photos.google.com/u/1/photo/AF1QipPMJgtbKT-NMjGdPQ8K_L8CYMvgSXZP5aY22juK", 
"https://photos.google.com/u/1/photo/AF1QipPW8BJv5qIoyyzVjy0zuKI242LOxMYsRyFJxBsg"
), `Pi23 Back` = c("https://photos.google.com/u/1/photo/AF1QipMxnjLRCBpCL9cznYihTUhSXX5BgDWaDxGaKIe-", 
"https://photos.google.com/u/1/photo/AF1QipMzcKjn3UyoK3DWZMVj8hI-dWfAqKejWmZBfkHJ", 
"https://photos.google.com/u/1/photo/AF1QipPBWwT3lxBLUttOhzARUoM1L6xPFmZJz19CGjAE", 
"https://photos.google.com/u/1/photo/AF1QipOkG8DjQlsm3TXGjDP_8NQqUtEAGyOwYiTNr42A", 
"https://photos.google.com/u/1/photo/AF1QipMm7hNg2SEIUvmm9iv8iK6MkKb7IvAmcwit_97_", 
"https://photos.google.com/u/1/photo/AF1QipOqoZNMwD00UtrVPG7k8o3JnThfetAYRLIOlIkP", 
"https://photos.google.com/u/1/photo/AF1QipNMDbjokFX4Qnthsk7Yxr3WVv1sEdHXoWFyZzMU", 
"https://photos.google.com/u/1/photo/AF1QipPTJq-id25rY-2e4NPJQ2EXzV6Tx8_ioTYxv-LR", 
"https://photos.google.com/u/1/photo/AF1QipP3OgXjO4GadrJbxISxZlvIO3FoLJ6OuCqhml4L"
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
-9L))

data for dental_data

structure(list(`Laser Mfg` = c("Biolase", "Biolase", "DeKa", 
"Fotona", "Fotona", "Fotona", "Fotona", "Fotona", "Fotona", "Millennium", 
"AMD", "AMD", "AMD", "Brassler", "CAO", "Clincians Choice", "Denmat", 
"THOR", "THOR", "THOR", "Zolar", "Biolase", "Biolase", "Biolase", 
"King Medical", "Sirona Dentsply", "Ultradent", "Zolar", "Convergent", 
"DeKa", "DeKa", "GPT Dental", "Lightscalpel", "Lightscalpel", 
"Ivoclar Vivadent", "Denmat"), `Laser Model` = c("Waterlase iPlus", 
"Waterlase Express", "SmartPerio ", "LightWalker AT", "LightWalker AT S", 
"Lightwalker ST-E", "SkyPulse Endo", "SkyPulse Versa", "NightLase", 
"PerioLase MVP-7", "Picasso+", "Picasso+ Lite", "Clarion", "BLU Dental Microlaser", 
"Precise LTM", "Clincians Choice", "Sol", "810nm Infra Red Single Laser Dental Probe", 
"810nm 1W laser cluster (5 x 200mW)", "810nm 200mW single laser probe", 
"Photon dental diode laser", "Epic X", "Epic Pro", "Epic Hygiene", 
"Beamer STL 980", "Siro Blue", "Gemini Laser", "Photon Plus Dental Diode Laser", 
"Solea Laser", "Smart US-20D CO2 Laser", "SmartXide Ultraspeed2 CO2 Laser", 
"DENTA CO2", "LS-1005", "LS-2010", "Odyssey Diode", "NVPro3"), 
    Wavelengths = c("2780nm", "2780nm", "1064nm", "1064nm / 2940nm", 
    "1064nm / 2940nm", "2940nm", "2940nm", "2940nm", "2940nm", 
    "1064nm", "800-820nm OD 5", "800-820nm OD 5", "800-820nm OD 5", 
    "810nm", "810nm", "808nm", "810nm", "810nm OD 3", "810nm OD 4", 
    "810nm OD 3", "810nm", "940nm +/- 10nm", "940nm +/- 20nm, 980nm +/- 20nm", 
    "980nm +/- 10nm", "980nm", "440-450nm OD5, 655-665nm OD1, 960-985nm OD5", 
    "810nm / 980nm", "980nm", "9,300nm", "10,600nm", "10,600nm", 
    "10600nm", "10600nm", "10600nm", "810nm +/- 20nm", "808nm (OD 4)"
    ), `Laser Type` = c("Erbium", "Erbium", "Nd:Yag", "Nd:Yag / Erbium", 
    "Nd:Yag / Erbium", "Nd:Yag", "Nd:Yag", "Nd:Yag", "Nd:Yag", 
    "Nd:YAG", "Diode Laser", "Diode Laser", "Diode Laser", "Diode Laser", 
    "Diode Laser", "Diode Laser", "Diode Laser", "Diode Laser", 
    "Diode Laser", "Diode Laser", "Diode Laser", "Diode Laser", 
    "Diode Laser", "Diode Laser", "Diode Laser", "Blue Light Laser, Diode", 
    "Diode Laser", "Diode Laser", "Co2", "Co2", "Co2", "Co2", 
    "Co2", "Co2", "Diode Laser", "Diode Laser"), `Eyewear Lens Compatible` = c("GP30", 
    "GP30", "GP30", "GP30", "GP30", "GP30", "GP30", "GP30", "GP30", 
    "GP30", "Pi1", "Pi1", "Pi1", "Pi1", "Pi1", "Pi1", "Pi1", 
    "Pi1", "Pi1", "Pi1", "Pi1", "Pi17", "Pi17", "Pi17", "Pi17", 
    "Pi17", "Pi17", "Pi17", "Pi19", "Pi19", "Pi19", "Pi19", "Pi19", 
    "Pi19", "Pi17", "Pi1"), Rec1 = c("701.Gi1", "701.Gi1", "701.Gi1", 
    "701.Gi1", "701.Gi1", "701.Gi1", "701.Gi1", "701.Gi1", "701.Gi1", 
    "701.Gi1", "701.Pi1", "701.Pi1", "701.Pi1", "701.Pi1", "701.Pi1", 
    "701.Pi1", "701.Pi1", "701.Pi1", "701.Pi1", "701.Pi1", "701.Pi1", 
    "701.Pi17", "701.Pi17", "701.Pi17", "701.Pi17", "701.Pi17", 
    "701.Pi17", "701.Pi17", "701.Pi19", "701.Pi19", "701.Pi19", 
    "701.Pi19", "701.Pi19", "701.Pi19", "701.Pi17", "701.Pi1"
    ), Rec2 = c("757.Gi1", "757.Gi1", "757.Gi1", "757.Gi1", "757.Gi1", 
    "757.Gi1", "757.Gi1", "757.Gi1", "757.Gi1", "757.Gi1", "757.Pi1", 
    "757.Pi1", "757.Pi1", "757.Pi1", "757.Pi1", "757.Pi1", "757.Pi1", 
    "757.Pi1", "757.Pi1", "757.Pi1", "757.Pi1", "757.Pi17", "757.Pi17", 
    "757.Pi17", "757.Pi17", "757.Pi17", "757.Pi17", "757.Pi17", 
    "757.Pi19", "757.Pi19", "757.Pi19", "757.Pi19", "757.Pi19", 
    "757.Pi19", "757.Pi17", "757.Pi1"), Rec3 = c("626.Gi1.Pi1", 
    "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", 
    "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", 
    "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", 
    "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", 
    "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", "626.Gi1.Pi1", 
    "626.Pi17", "626.Pi17", "626.Pi17", "626.Pi17", "626.Pi17", 
    "626.Pi17", "626.Pi17", "626.Pi19", "626.Pi19", "626.Pi19", 
    "626.Pi19", "626.Pi19", "626.Pi19", "626.Pi17", "626.Gi1.Pi1"
    ), VLT = c("70%", "70%", "70%", "70%", "70%", "70%", "70%", 
    "70%", "70%", "70%", "70%", "70%", "70%", "70%", "70%", "70%", 
    "70%", "70%", "70%", "70%", "70%", "34%", "34%", "34%", "34%", 
    "34%", "34%", "34%", "40%", "40%", "40%", "40%", "40%", "40%", 
    "34%", "70%"), `Optical Density` = c("870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "870-950nm (OD 4), \r\n950-1000nm (OD 5), \r\n1000-1550nm (OD 7), \r\n1550-2750nm (OD 4), \r\n2800-11000nm (OD 6)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)", "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "520-532nm (OD 0.49), \r\n9000-11000nm (OD 7)", "520-532nm (OD 0.49), \r\n9000-11000nm (OD 7)", 
    "520-532nm (OD 0.49), \r\n9000-11000nm (OD 7)", "520-532nm (OD 0.49), \r\n9000-11000nm (OD 7)", 
    "520-532nm (OD 0.49), \r\n9000-11000nm (OD 7)", "520-532nm (OD 0.49), \r\n9000-11000nm (OD 7)", 
    "200-455nm (OD 5), \r\n650-665nm (OD 1), \r\n725-800nm (OD 5), \r\n800-955nm (OD 4), \r\n955-1080nm (OD 6), \r\n9000-11000nm (OD 7)", 
    "800-830nm (OD 5), \r\n9000-11000nm (OD 7)")), row.names = c(NA, 
-36L), class = c("tbl_df", "tbl", "data.frame"))

#
# This is the server logic of a Shiny web application. You can run the
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(shiny)
library(tidyverse)

# Load QOptics loupe data
qoptics_data <- readxl::read_excel("QOptics Loupes.xlsx")

# Load dental data
dental_data <- readxl::read_excel("Dental_data.xlsx")%>%
  filter(`Laser Mfg` != "") %>%
  mutate(VLT = scales::percent(as.numeric(VLT)))


 # ui = uiOutput("tab")

shinyServer(function(input, output, session) {
  observeEvent(input$mfg,{
    # filter dental data to select mfg
    mfg_filtered_dental_data <- dental_data %>% 
      filter(`Laser Mfg` == input$mfg)
    # update select input - laser model
    updateSelectInput(inputId = "mod",
                      choices = sort(mfg_filtered_dental_data$`Laser Model`))
  })

  
  loupe_insert <- eventReactive(input$loupestyle,{
    qoptics_data %>% 
      filter(`Q Optics Loupe` == input$loupestyle)
  })
  selected_data <- eventReactive(input$mod,{
    req(input$mfg)
    dental_data %>% 
      filter(`Laser Mfg` == input$mfg,
             `Laser Model` == input$mod)
  })
  
  
  
  user_info <- eventReactive(input$run,{
    tibble(
    "Q-Optics Loupe Style" = loupe_insert()$`Q Optics Loupe`,
    "Laser Information" = glue::glue_safe(selected_data()$`Laser Mfg`, " ", selected_data()$`Laser Model`),
    "Laser Specifications" = selected_data()$Wavelengths)
    
    
  })
  output$userInfo <- renderTable(bordered = T,
                                  align = "l",
                                  striped=T,
                                  {
                                    user_info()
                                  })
  table_info <- eventReactive(input$run,{
#    tibble("INVO Part Number" = if_else(selected_data()$`Eyewear Lens Compatible` == "GP30",
#                                                     glue::glue_safe(loupe_insert()$`Innovative Optics Insert`,"." , selected_data()$`Eyewear Lens Compatible`),
#                                                     glue::glue_safe(loupe_insert()$`Innovative Optics Insert`,"." , selected_data()$`Eyewear Lens Compatible`, ".2B")),
#           "Optical Density Specifications" = selected_data()$`Optical Density`,
#           "Visible Light Transmission" = selected_data()$VLT)
    
#    tibble("INVO Part Number" = if_else(selected_data()$`Eyewear Lens Compatible` == "Pi1",
#                                        glue::glue_safe(loupe_insert()$`Innovative Optics Insert`,"." , selected_data()$`Eyewear Lens Compatible`),
#                                        glue::glue_safe(loupe_insert()$`Innovative Optics Insert`,"." , selected_data()$`Eyewear Lens Compatible`, ".2B")),
#           "Optical Density Specifications" = selected_data()$`Optical Density`,
#           "Visible Light Transmission" = selected_data()$VLT
#            )
    tags$a(href="https://innovativeoptics.com/pi1-laser-glasses-frames/", "Pi1")
    
  })

  output$tableInfo <- renderTable(bordered = T,
                                  align = "l",
                                  striped=T,
                                  height="100%",
                                  {
    table_info()
  })
  
#  rec1_table <- eventReactive(input$run,{
#    tibble("INVO Part Number" = selected_data()$`Rec1`)
#  })
#  output$tableRec1 <- renderTable(bordered = T,
#                                  align = "l",
#                                  striped=T,
#                                  {
#                                    rec1_table()
#                                  })
#  rec2_table <- eventReactive(input$run,{
#    tibble("INVO Part Number" = selected_data()$`Rec2`)
#  })
#  output$tableRec2 <- renderTable(bordered = T,
#                                  align = "l",
#                                  striped=T,
#                                  {
#                                    rec2_table()
#                                  })
#  rec3_table <- eventReactive(input$run,{
#    tibble("INVO Part Number" = selected_data()$`Rec3`)
#  })
#  output$tableRec3 <- renderTable(bordered = T,
#                                  align = "l",
#                                  striped=T,
#                                  {
#                                    rec3_table()
#                                  })
  
  image_location <- eventReactive(input$run,{
 #   #get lens from QOptics based on Eyewear Lens Compatible From Dental data EXCEL

  })
  output$productImage <- renderImage({
    req(input$loupestyle)
    req(input$mfg)
    req(input$mod)
    list(src = image_location()[[1]],
         width = "500px",
         contentType = "image/jpeg")
    
    
  }
  ,deleteFile = FALSE)
 


})

Untitled
Untitled885×1013 68.1 KB

2

it seems like you are confused about the difference between a table that can be shown via a renderTable; and a tag, which is HTML and can be shown by renderUI.

Here is an example script that should demonstrate this to you.

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(
      6,
      div(
        style = "border-style: solid;",
        p("a tag shown by a UI Output"),
        uiOutput("o1")
      )
    ),
    column(
      6,
      div(
        style = "border-style: solid;",
        p("a table shown by a UI Output"),
        uiOutput("o2")
      )
    )
  ),
  fluidRow(
    column(
      6,
      div(
        style = "border-style: solid;",
        p("a tag shown by a table Output"),
        uiOutput("o3")
      )
    ),
    column(
      6,
      div(
        style = "border-style: solid;",
        p("a table shown by a table Output"),
        uiOutput("o4")
      )
    )
  )
)

(example_tag <- tags$a(href = "www.google.com", "googlelink"))

(example_table <- data.frame(col1 = letters[1:3],
                             col2 = 1:3 ))

server <- function(input, output, session) {
  output$o1 <- renderUI({
    example_tag
  })

  output$o2 <- renderUI({
    example_table
  })


  output$o3 <- renderTable({
    example_tag
  })

  output$o4 <- renderTable({
    example_table
  })
}

shinyApp(ui, server)
3

Thank you, nirgrahamuk! I appreicate you taking the time and giving me an example. While that did help just a tiny bit, I am still confused and not moving a line. Not your fault, but mine. I am still trying to understand but I need to give myself time to learn and be patient with myself. I just want to make my boss happy! I will just have to keep trying. I am sure I will come back later and go, "OHHH! He tried to tell me but I couldn't see it at the time!" :slight_smile:

Thank you!

4

Is table_info a tag of an anchor link, or a tabular object like a dataframe. ?

How do you render it?

5

Is it an object because the link would have worked, right? :face_with_peeking_eye:

Do I need to insert a text in UI or something?

6

you shared code where its being a tibble (data.frame) is commented out and you have it instead as a tag

#  tibble("INVO Part Num

 tags$a(href="https://

you cant make such a change without also making other changes. like the object which surfaces it in the UI , and the renderFunction choice with how to render that object.