Экспорт файла CSV из таблицы данных после использования DT и листовки с перекрестными помехами - PullRequest
Новая
       70

Экспорт файла CSV из таблицы данных после использования DT и листовки с перекрестными помехами

0 голосов
/ 17 января 2019

ниже - мой набор данных.Я пытаюсь использовать leaflet и DT в flexdashboard, используя crosstalk.Я смог запустить данные в flexdashboard используя скрипт ниже.Теперь я хочу создать полноэкранный вариант в разделе leaflet, что я не могу сделать. Также моя цель состоит в том, чтобы выбрать данные на листочке и отразить выбранные данные в таблице DT, которая в настоящее времяза работой.но я хочу экспортировать выбранные данные в документ CSV?что я не могу сделать.Пожалуйста помоги !

Date Hour Descr lat lng Final.Assessment 1/6/16 13 Paid -37.81550 145.0128 Paid in person 1/6/16 13 Paid -37.81550 145.0128 Paid in person 1/6/16 13 upaid -37.81550 145.0128 Not in contact 1/6/16 16 Paid -37.81760 144.9920 Paid in person 1/6/16 17 Paid -37.81127 144.9963 Paid via Online 1/6/16 17 loss -37.81127 144.9963 Bad product sold

Мой скрипт flexdashboard

`--- title:« Соединение карты и DT »вывод: flexdashboard :: flex_dashboard:

output: html 

library(leaflet)
library(tidyverse)
library(dplyr)
library(crosstalk)
library(flexdashboard)
library(DT)
library(htmlwidgets)
library(htmltools)

Столбец {data-width = 650}

Диаграмма A 

newdata<-read.csv("Stackoverflow.csv")



shared_df<-SharedData$new(newdata)


leaflet(shared_df) %>% 
       addTiles() %>% 
        addMarkers()

Столбец {data-width = 500}

Диаграмма B 

datatable(shared_df)
datatable(shared_df, extensions="Scroller", style="bootstrap", class="compact", width="100%", 
options=list(deferRender=TRUE, scrollY=300,scroller=TRUE, buttons = c('copy', 'csv', 'excel', 'pdf', 'print')))

`

...